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SUMMARY 


This document is a user's manual for the computer program developed 
to calculate the longitudinal aerodynamic characteristics of upper-surface- 
blown (USB) wing-flap combinations. A vortex-lattice lifting-surface 
method is used to model the wing and multiple flaps. Each lifting surface 
may be of arbitrary planform having camber and twist, and the trailing- 
edge flap system may consist of up to ten flaps with different spans and 
deflection angles. Coanda flaps are represented by multiple individual 
flap segments. The engine wake model consists of a series of closely 
spaced vortex rings with rectangular cross sections. The rings are 
positioned relative to a wake centerline which is located such that the 
lower boundary of the jet is tangent to the wing and flap upper surfaces. 
The two potential flow models are used to calculate the wing-flap loading 
distribution including the influence of the wakes from up to two engines 
on the semispan. The method is limited to the condition v;here the flow 
and geometry of the configurations are symmetric about the vertical plane 
containing the v/ing root chord. The results available from the program 
include total configuration forces and moments, individual lifting-surface 
load distributions, pressure distributions, individual flap hinge moments, 
and flow field calculation at arbitrary field points. 

This program manual contains a description of the use of the program, 
instructions for preparation of input, a description of the output, pro- 
gram listing, and sample cases. 


INTRODUCTION 


The short take-off and landing requirements for STOL aircraft 
necessitates a means of achieving very high lift coefficients on aircraft 
in both take-off and landing configuration. Recent experimental investi- 
gations of upper-surface-blown (USB) flap configurations have indicated 
the potential for efficient powered-lift performance at reduced ground 
noise levels. An upper surface blown flap is a STOL high lift device in 
which the jet efflux from turbofan engines mounted above the wing is 
allowed to impinge on the upper wing surface such that it becomes attached 
to the w’ing surface and flows aft over the wing and flap and is deflected 
by the trailing edge flap. A large amount of additional lift is produced 
through engine wake deflection and induced aerodynamic effects. 

The purpose of the analysis in reference 1 is to provide an engineer- 
ing prediction method using potential flow models and requiring little 
use of empirically determined information, to predict the static longitu- 
dinal aerodynamic characteristics of USE configurations. The method 
involves the combination of a vortex-lattice lifting-surface model of the 
wing and flaps and a vortex ring model of the rectangular jet wakes. The 
two flow models are combined by direct superposition, and a tangency bound- 
ary condition is satisfied on the wing and flap surfaces. Additional 
loading is placed on the flap surfaces to account for the turning of the 
jet wake, and induced aerodynamic effects are obtained by allov/ing the 
additional loading to influence the loading on all other lifting surfaces. 

The computer program described in this report is an improved and 
extended version of the program of reference 2. An improved vortex-lattice 
lifting-surface method is used in which the trailing legs of the horseshoe 
vortices are allowed to bend around the flap surfaces so that all the 
trailing vorticity leaves the configuration tangent to the last flap. 

This is the same vortex lattice method described in reference 3. The jet 
centerline calculation has been automated so that, after starting with an 
arbitrary jet location, the centerline is positioned so that it lies 
parallel to the v;ing and flap upper surface. The rectangular jet cross- 
sectional shape at all points along the length of the jet must be 
specified by the user. 

This document is a user's manual for the computer program developed 
to carry out the calculations in the USB aerodynamic prediction method. 
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Principal reliance is made herein- to reference 1 for a description of the 
details of the method and the calculation procedure. Reference 1 also con 
tains calculated results and comparisons with data for a variety of con- 
figurations. The following sections of this report will provide a descrip 
tion of the program, a description of the input, a description of the 
output, a program listing, and sample cases. The notation used is the 
same as that of reference 1. 


DESCRIPTION OF PROGRAM 

The purpose of this section is to describe the USB aerodynamic pre- 
diction program in sufficient detail to permit a general understanding of 
the flow of the program and to make the user aware of the analytical 
models used to represent the jets and the lifting surfaces. Basically, 
the program models the lifting surfaces with horseshoe vortices whose 
circulation strengths are determined from a set of simultaneous equations 
provided by the flow tangency boundary condition applied at a finite set 
of control points distributed over the wing and flaps. The boundary con- 
ditions include interference velocities induced by some external source 
of disturbance such as the wake of a turbofan engine. The jet wake is 
modeled by a series of closely spaced ring vortices, rectangular in 
shape, arranged on the boundary of the jet. The strength of the vortices 
is specified by the initial velocity in the wake which is determined from 
the momentum in the jet. The jet is allowed to interact with the wing 
and flaps through the jet induced velocity field on the lifting-surface 
control points, and through additional loading on the wing and flaps. 

This additional loading represents the jet reaction force due to the 
deflection of the jet by the trailing edge flaps. 

Calculation Procedure 

The general flow of the program, shown in the flow chart in figure 1, 
proceeds as follows. After run identification information and certain 
reference quantities are read in, the wing geometry is input and the 
wing lattice layout is set up and then printed as output. This is 
accomplished in subroutine WNGLAT. Similar calculations for the flap 
surfaces are carried out in subroutine FLPLAT. This concludes the 
lifting-surface geometry specification; therefore, the influence coeffi- 
cient matrix, which is the left-hand side of the equation set and a 
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function of geometry only, can be calculated in Subroutine INFMAT. The 
matrix is triangularized (Subroutine LINEQS) for use in the solution of 
the simultaneous equations. This concludes the first section of the 
program which need be performed only once in each calculation. Provision 
is made for the storage of the triangularized matrix (Subroutine FVNOUT) 
so that recomputation is not necessary in future runs considering the 
same geometry. 

The next section of the main program is that part in which the 
solution is carried out. The first step is the input of the initial jet 
parameters (Subroutine JET) and the set up of the tangent jet centerlines 
(Subroutine JETCL) in preparation for induced velocity calculations. The 
jet induced velocity field at each lifting-surface control point is com- 
puted in Subroutine JET at this time. An additional component of induced 
velocity at each control point is induced by the additional loading on 
the flaps (Subroutine JETVEL) . This additional loading represents the 
reaction force on the flaps caused by the deflection of the jet by the 
flaps. The right-hand side of the equation set is now computed in Sub- 
routine RHSCLC. Solution of the equation set in Subroutine SOLVE produces 
the values for the circulation strengths of each horseshoe vortex describ- 
ing the lifting surfaces. Given the circulation strengths and the induced 
velocity field, the load distributions on the lifting surfaces are calcu- 
lated in Siibroutine LOAD and resolved into total forces and moments in 
Subroutine FORCES . 

The final calculation to be carried out, if requested, is the com- 
putation of the induced velocity field at specified field points (Sub- 
routines VELSUM, JET, and JTCIRV) . This option is provided so that the 
user may investigate the induced flow field in the vicinity of a hori- 
zontal tail position or other points of interest in the flow field. 

Program Operation 

The USB prediction program is written in FORTRAN IV and has been run 
on a CDC 6600 computer. The version described in this document was 
designed to be used under the FTN compiler with level 1 or 2 optimization. 
Other compilers can be used with only minor modifications, and lower 
optimization levels can be used with the only penalty being an increase 
in run time. No tapes other than standard input and output units are 
required for a typical run, although two available options allow jet wake 
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parameters and an externally induced velocity field to be brought in via 
tape unit 4 and the storage of the influence matrix on tape unit 8 to save 
computer time on later runs. 

The main program, USBMAIN, contains one item which is not a standard 
feature of all FTN compilers. Between cards USB195 and USB207 there are 
two calls to Subroutine REQFL, a subroutine unique to the CDC 6600. This 
is a request for an adjustment in the core memory to make room for the 
influence coefficient matrix, FVN, which is stored in a one-dimensional 
array. The purpose of this adjustment is to minimize the core storage 
used until the large array is required. FVN is dimensioned for unit 
length on card USB055. If Subroutine REQFL or its equivalent is not 
available, the following changes are required. First, remove cards 
USB195 through USB207. Second, change the dimension of the FVN array on 
card USB055 to a value which will cover the maximum number of elements 
in an influence coefficient matrix; that is, the square of the total 
number of vortex-lattice panels on the configuration of interest. Thus, 
the dimension of FVN can be made large enough to cover the largest array 
anticipated, or the minimum size array needed can be defined and the 
dimension changed as the number of vortex panels is increased. The 
maximum number of vortex panels allowed is 250. 

There is an alternative solution which minimizes storage require- 
ments for the FVN array when Subroutine REQFL is not available. Program 
USBMAIN can be turned into a subroutine with cards USB195-207 removed 
and the FVN dimension set at unity. A short main program can be written 
which consists of a blank common which sets the dimension of FVN to the 
required size and a call to Subroutine USBMAIN. In this way, a short 
five-card main program is all that need be recompiled to change the size 
of the FVN array. This alternate set up for a main program is illustrated 
in figure 2 to accommodate a maximum vortex lattice of 136 elements (for 
example) . The changes to the current main program, USBMAIN, to make it 
a subroutine are also shown in this figure. 

The following is a list of the components of the USB program and a 
brief description of the function of each. 

Main Program; 

USBMAIN - controls the flow of the calculation and handles some input 
and output duties 
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Subroutines : 

WNGLAT - reads in wing input data, lays out the vortex lattice on the 
the wing, and outputs wing geometric information 

FLPLAT - reads in flap input data, lays out vortex lattice on the flaps 
including wing trailing legs which lie on the flaps, and 
outputs flap geometric information 

INFMAT - calculates influence coefficient matrix 

FLVF - calculates influence function for a- finite length vortex 
filament 

SIVF - calculates influence function for a semi-infinite length vortex 
filament 

RHSCLC - calculates the right-hand side of the simultaneous equations 
for the vortex strengths 

LINEQS - triangularises the square influence coefficient matrix 

SOLVE - solves for the circulation strengths 

LOAD - calculates the forces on the bound and trailing vorticity 

associated with each area element using the traditional method 

LOADCP - calculates the upper and lower surface pressure coefficients on 
each panel and the force associated with each area element 

FORCES - calculates and outputs the spanwise loading distributions and 

total forces and moments and pressure distribution on the com- 
plete configuration 

VELSUM - computes wing-flap induced velocity field at a specified point 

JET - reads in initial jet parameters, outputs total jet configura- 
tions, and calculates jet wake induced velocities at specified 
points 

JETCL - calculates the wake position parameters of USB jets which are 
tangent to the upper wing and flap surfaces 

CORECT - corrects field point locations relative to vortex rings to 
avoid singularities 

QRING - computes velocity components induced by a single, quadrilateral 
vortex ring at an arbitrary field point relative to the ring 
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Subroutines (Concluded) 

JETVEL - calculates additional loading on flaps due to jet deflection 

JTCIRV - calculates the velocity components induced by the additional 
loading on the flaps 

TRLG - corrects horseshoe vortex trailing legs at flap junctions to 
eliminate unusually large local loadings near flap edges 

FVNOUT - stores the aerodynamic influence coefficient matrix on tape 8 
for future use 

PVNiN - inputs the aerodynamic influence coefficient matrix from tape 8 

UVWOUT - stores the jet parameters and jet induced velocities at control 
points on tape 4 for use in future runs 

UVWIN - inputs the jet parameters and jet induced velocities at control 
points from tape 4 


Program Usage 

Limitations ■ - It should be remembered that the prediction method is 
made up of potential flow models which presume the flow to be attached to 
the lifting surfaces at all times. When applying the program to config- 
urations at very high angles of attack or to configurations with very 
large flap deflections, the predicted results will generally indicate too 
much lift as separation may exist on portions of the real model. 

The program is a model for the wing and flaps only; therefore, when 
comparing predicted results with measured characteristics on a complete 
configuration, the force and moment contributions due to such items as 
the fuselage, nacelles, and leading-edge slat must be included as 
additional items. This is illustrated in the data comparisons in 
reference 1. 

There are certain limitations and requirements in laying out the 
vortex- lattice arrangement on the lifting surfaces. These are discussed 
in detail in the input section of this manual, but several of the more 
important items are noted as follows ; 

(1) Since the current version of the vortex-lattice method bends 
the trailing legs of the wing horseshoe vortices around the flaps, in 
laying out the geometry care must be taken that a flap surface not lie 
above the wing surface. For the same reason, flap surfaces may not overlap. 
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(2) The program has the capability of computing the induced velocity 
field at any specified field point, but the modeling of the wing and 
flaps with horseshoe vortex singularities can cause numerical problems 
and unrealistic answers if a field point lies too near a singularity. 

A general rule to follow when computing induced velocities is that the 
field point should not be closer to a lifting surface than one-half the 
width of the nearest horseshoe vortex. 

Run time . - Both the vortex-lattice lifting-surface and the vortex 
ring jet models can be time consuming in a typical calculation; conse- 
quently, their combination into the USB program creates a calculation 
procedure which can be very costly in terms of computer time. Estimating 
the computation time required for a calculation is difficult because of 
the variables involved. Size of the vortex lattice, number of flaps, 
number of jets, length of the jets, spacing of the vortex rings, and 
force calculation options all help determine the total run time for a 
calculation. A list of typical execution times for different combinations 
of the above parameters is presented in Table I. Explanations of the 
force calculation options are presented in the following section. 

DESCRIPTION OF INPUT 

This section describes the preparation of input for the USB computer 
program. In the following sections, some detailed information regarding 
the layout of the vortex lattice and the specification of the jet wake 
are presented. This is followed by a listing of all input variables and 
their format and positions in the input deck. The last topic in this 
section is a sample input deck illustrating a typical USB calculation. 

Vortex-Lattice Arrangement 

The vortex-lattice method used in the present USB program is identi- 
cal to the version of the vortex-lattice method presented in references 3 
and 4. The vortex-lattice method is capable of modeling the following 
characteristics of the wing and flap: 

Wing 

• Mean camber surface may have camber and twist. 

• Leading-edge sweep angle need not be constant across semispan. 

• Trailing-edge sweep angle need not be constant across semispan. 
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• Taper need not be linear and there may be discontinuities in the 

local wing chords. 

• Non-zero dihedral angle is allowed, but it must be constant over the 

semispan. 

• Thickness effects are neglected. 

• Tip chord must be parallel to root chord. 

Flaps 

• A maximum of ten flaps may be considered, but no more than three 

flaps may be behind any one wing chordwise row of panels . 

• Each flap may have camber and twist. 

• Leading- and trail ing-edges must be straight and unbroken on each 

flap surface. 

• Flap chord must have linear taper. 

• Thickness effects are neglected. 

• There may be slots between the flaps, but the leading edge of each 

flap lies in the plane of the adjacent upstream lifting surface. 

• Coanda flaps are modeled by multiple flap segments with no slots. 

The vortex-lattice arrangement describing the wing and flaps is 
general enough to provide good flexibility in describing the lifting 
surfaces. A maximum of thirty (30) spanwise rows of vortices may be 
used, and each lifting-surface component can have a maximum of ten (10) 
chordwise vortices. The area elements on each lifting surface have a 
uniform chordwise length at each spanwise station. In the spanwise 
direction, the widths of the area elements may be varied to fit the 
loading situations; that is, in regions of large spanwise loading gra- 
dients, the element widths may be reduced to allow closer spacing and 
more detailed load predictions. 

The maximum lattice size on the complete configuration is fixed at 
250 in the program. The elements may be distributed in any proportion 
over the wing and flaps, and for the sake of economy, considerably less 
than this total number should be used for most calculations as illustrated 
by the run times in Table I. The following comments, based on the recom- 
mendations of Appendix A of reference 5 and the authors' experience, are 
offered as an aid to selecting the proper vortex-lattice arrangement for 
a wing-flap configuration. 

Spanwise distribution . - Convergence of gross aerodynamic forces and 
moments to within 1 percent is obtained by using not less than fourteen 
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equally spaced spanwise rows of vortices. If an unequal spanwise spacing 
is required to create a locally dense region of vorticity, the initial 
spacing should be laid out approximately equal, with additional rows 
added in the regions of interest. The spanwise spacing can be adjusted 
small amounts to meet some additional requirements without changing the 
gross loading properties. For example, it is desirable that there be 
approximate symmetry in the widths of the vortex elements about the 
engine centerline station. This can cause some unusual distributions of 
lattice widths as illustrated in figure 3 where a typical lattice arrange- 
ment on the two-engine USB model of reference 6 is illustrated. In this 
case the number of spanwise vortices was limited to sixteen to minimize 
the total number of elements in the lattice. In this particular case, 
the only suggested modification in the spanwise layout would be to add 
two rows of vortices outboard of the jet to obtain more detail in the 
spanwise loading distribution. One additional row of vortices near the 
jet would also improve the spanwise loading. 

Chordwise distribution . - Results in Appendix A of reference 5 
indicate that four is the minimum number of chordwise vortices on the 
wing for best results and more than six vortices do not change the pre- 
dicted loads appreciably. A larger number of chordwise vortices on the 
wing should be used if a chordwise pressure distribution is the goal of 
the predictions. 

The number of chordwise vortices on the flaps is somewhat arbitrary. 

A rule of thumb is that the chord of the vortex element on the flap should 
not be greater than the chord of the wing elements. Generally, the chord 
of the flap elements will be much smaller than the wing elements. If 
gross forces are the objective of the prediction, two or three chordwise 
vortices per flap are all that are needed. If pressure distributions are 
desired, there should be three or more chordwise vortices per flap. The 
gross force will change very little with additional flap vortices. 

Care should be taken in laying out vortices in regions of large jet 
interference. Since interference of the jet on the lifting surfaces is 
"felt" only at the control points of the area elements, small lateral 
changes in the wake boundary can cause large changes in the wake induced 
loading if the area elements on the flap are too large. This is caused 
by the covering and uncovering of area elements whose control points fall 
near the boundary of the jet. Results indicate that if a sufficient 
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number of elements are used in the wake region of the wing and flap, the 
element sizes will be sufficiently small so that results will not be 
unduly influenced by changes in wake location. 

The chordwise distribution of lattice elements on the USB model in 
figure 3 should be considered a minimum lattice. Each of the three flap 
segments making up the Coanda flap (flaps 1, 2, and 3) have two rows of 
vortices as do each of the two flaps in the center flap region (flaps 4 
and 5) . The outboard flap (flap 6) , or aileron, has but one row of 
vortices. This distribution is adequate for force and moment calculations, 
but additional lattice elements should be added if the pressure distribu- 
tion is of interest. 

Coanda flap . - The use of Coanda flaps on USB configurations presents 
some problems in setting up a vortex-lattice arrangement that are not 
evident when considering conventional flap systems. With conventional 
slotted flaps such as those used on externally blown flap configurations, 
each flap can be represented as a separate flap segment with a specified 
lattice arrangement. The flap size and deflection alge are well defined 
in this case. 

A typical Coanda flap is specified by a radius of curvature and the 
slope of the trailing edge of the flap. The slope of the trailing edge 
is usually used to define the flap deflection angle; for example, 6^ = 32° 
and 72° in reference 6. A vortex-lattice arrangement on a Coanda flap is 
determined by dividing the actual Coanda flap into not more than three 
individual flap segments with no gaps between the segments. Generally 
the flap segments have equal chords, but this is not a requirement. The 
deflection of each flap segment should be chosen to best represent the 
actual deflection of the Coanda flap. This is particularly important for 
power-on cases where the deflection of the jet wake contributes a large 
part of the total lift on the wing and flaps. It has been the experience 
of the author that a graphical representation of a section of the actual 
Coanda flap and the vortex-lattice model is useful in evaluating the 
quality of the lattice model. Minor adjustments in chord length and 
deflection angles as dictated by a drawing can improve the vortex-lattice 
model and the final results. 
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Jet Wake Specification 


The vortex ring model used in the USB program is a modified version 
of the vortex ring model presented in reference 4 . The present program 
will handle rectangular cross-section jets with centerlines positioned 
such that the lower boundary of the jet is parallel to the upper surfaces 
of the wing and flaps. The program automatically locates the jet wake in 
the correct position with respect to the wing and flap surfaces, but the 
user is required to specify some general jet parameters such as the 
spreading of the wake and its cross sectional shape at various points 
along the length of the wake. There are several critical points on the 
jet wake which must be defined carefully. A vortex ring model of a 
typical USB jet wake is developed as follows. 

The first critical point in the jet description is the location of 
the exhaust nozzle and its shape. If the actual nozzle is not rectangular, 
it must be represented as a rectangular nozzle. Keep the width of the 
model the same as the actual nozzle and adjust the height to match the 
area of the exhaust nozzle. The inlet or initial point of the jet model 
may be located at the actual engine inlet location, or it may be located 
at some intermediate point between the inlet and exhaust locations. A 
good rule of thumb is that the jet model inlet should be at least one jet 
width ahead of the wing leading edge. The jet model is often shortened 
in this manner to reduce the number of vortex rings required to model the 
jet and thus conserve computation time. The initial jet shape must be 
identical to the chosen shape at the exhaust location. 

These first two points describing the jet inlet and exhaust locations 
are required to initialize the jet model. The following points are chosen 
by the user to prescribe the expansion and cross sectional shape of the 
jet downstream of the exhaust nozzle. Usually, only three or four 
additional points along the jet are required. If some empirical knowledge 
of the jet to be modeled is available, it should be included in the 
specifications in order to get the best physical model possible. For 
example, if the observed lateral spreading of the wake is such that the 
entire Coanda flap is covered by the wake, the width should be chosen to 
fit this criteria. Using a typical decay schedule for the average veloc- 
ity in the jet as described in reference 1, a nominal jet height can be 
estimated from the following relationship 
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In equation (2) , a^ and b^ are the initial half -width and half-height, 
respectively; and a and b are the local values of half-width and half- 
height. The actual procedure involves choosing a local average jet 
velocity, U/U^, at a point downstream of the exhaust, x/h^; for example, 
see figure 4. Choosing the jet half-width at the point in question, and 
knowing the exhaust nozzle characteristics, the half-height of the jet 
can be obtained from equation (2) . If the conditions of the jet wake are 
such that b < b^, the user has the option of either choosing a smaller 
half-width or simply specifying b = b^. This latter approach is not 
unreasonable as measured velocity profiles in the wake of a typical USB 
model indicate only small growth of the wake thickness while it is 
attached to the wing and flap surface (ref. 7). Another approach is to 
assume that the wake cross section aspect ratio is constant over the 
length of the wake. This approach is the most reliable to assure an 
acceptable jet model, and it should be used if no detailed information 
on the extent of the wake spreading is available. 

The remaining points describing the jet model should be in the 
following approximate locations. There should be one point near the wing 
trailing edge ahead of the Coanda flap. Other points between the exhaust 
location and the wing trailing edge may be included, but they are not 
specifically required. Another point in the vicinity of the Coanda flap 
trailing edge us useful. The last point describing the jet should 
specify the end of the jet wake. A good rule of thumb for this point is 
that the jet should extend approximately one wing root chord aft of the 
flap trailing edge. If the user is uncertain about where to terminate 
the wake, it is better to be conservative and make the jet too long 
rather than too short. The penalty for a short jet is inaccurate induced 
loadings. The user should investigate the effect of jet length on a 
particular configuration by running one case with an extended jet and 
comparing predicted results. Generally, jets longer than suggested above 
are not required unless velocity fields a long distance aft of the wing 
and flaps are required. If this is the case, the jet should be lengthened 
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so that it extends approximately one wing chord beyond the axial station 
at which field points are desired. 


Thus far in the description of the jet, only the height and width at 
various points along the centerline have been specified. Since the pro- 
gram automatically determines the height of the jet centerline above the 
wing, the z ^-coordinate need not be specified. If the lateral coordinate 
of the jet is not specified, the jet centerline is assumed to move aft at 
a constant spanwise station. Lateral motion of the jet can be specified 
by a variation of the y^ -coordinate . Note that the first two entires 
describing the jet, corresponding to the inlet and the exhaust, must be 
at y j = 0 . If some lateral motion is specified, remember that the jet is 
defined in a jet coordinate system as illustrated in figure 5. The pro- 
gram also automatically computes the slope of the centerline, 0, thus it 
need not be specified for typical USB calculations. The jet model shown 
in figure 5 was calculated from the jet parameters specified in the 
sample case in figure 7 (a) . 


The last critical parameter to be specified is the spacing between 
the vortex rings. Ideally, the closer the rings, the more accurate the 
results; but the closer the spacing, the more rings required to make up 
the jet model and the longer the computation time needed to compute an 
induced velocity field. A compromise number for the ring spacing is a 
distance equal to approximately 0.2 of the minimum dimension of a ring. 
This is not a firm number, but it is generally a good estimate. The 
program has an option built into it that allows the spacing to vary along 
the jet through use of the variable DSFACT. This is simply a multiplying 
factor used to scale up the ring spacing to two or three times the initial 
value. This option should never be used in the vicinity of the wing and 
flaps as the accuracy of the induced velocity field at the control 
points will be reduced. It is permissible to increase the spacing down- 
stream of the last flap. The use of this scaling factor is illustrated 
in the sample input decks . 

The individual engine thrust (C^) must be specified, and in the case 
of a two-engine USB conf iguration, this is just one-half the total thrust 
coefficient. On four-engine configurations, there is no requirement that 
the thrust of both engines on the semispan be the same; however, this is 
usually the case. The average velocity at the exhaust nozzle exit is 
calculated from the relation 
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and the vortex sheet strength on the jet boundary is 


I = Xi - 
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(4) 


If some empirical information on the jet exhaust exit velocity is known, 
the parameter p/p^ should be adjusted such that equation (3) produces 
the correct jet velocity ratio. 


Input Variables 

The purpose of this section is to describe the variables required 
for input to the USB program. Input forms are presented in figure 6; and 
for each item of input data shown in the figure, the following informa- 
tion is given. The format for each card and the program variable names 
are shown first. The card column fields into which the data are to be 
punched are also shown. Within each block representing the card columns 
is the FORTRAN format type. Data punched in I format are right justified 
in the fields, and data punched in F format can be punched anywhere in 
the field and must contain a decimal point. The name in parentheses at 
the left of each item in figure 6 is the program or subroutine where the 
item is read. 


Note that all length parameters in the input list have dimensions; 
therefore, special care must be taken that all lengths and areas are 
input in a consistent set of units. 


Item momber 1 is a single card containing the following indices; 


NHEAD 


number of run identification heading cards in Item 2 
(no limit on number of cards) 


NFVN = 0 
= 1 

NUNIT = 0 
= 8 


NFPTS 


calculate FVN influence matrix 

input FVN influence matrix via tape 8 

no action required on calculated influence matrix 

store influence matrix on tape 8 if NFVN = 0, or read 
influence matrix from tape 8 if NFVN = 1 

number of field points at which velocity components are 
computed (0 ^ NFPTS <. 50) 
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NPRlNT =0 no optional output 

= 1 output velocity components (at lattice control points) 
induced by flap loading associated with jet turning 

= 2 also output force components on each individual panel 
of lattice 

Item number 2 is a set of NHEAD cards containing hollerith informa- 
tion identifying the run and may start and end anywhere on the card. The 
cards are reproduced in the output just as they are read in. 

Item number 3 consists of one card and contains the following infor- 
mation : 

SREF reference area used in forming aerodynamic coefficients 

REFL reference length used in forming aerodynamic moment 

coefficients 

XM,ZM X and Z coordinates of point about which pitching moment 

is calculated; wing coordinate system and positive 
directions are shown in figure 3 and sketch 1 

ETAJ jet turning efficiency, the ratio of the jet deflection 

angle to the maximum flap angle (0 ^ n £ 1.0) 



Sketch 1.- Wing parameters 

The variable ETAJ in Item 3 is provided to assist in modeling the 
turning efficiency of typical USB configurations. Measurements have 
shown that the jet is often unable to remain attached over the full 
length of a highly deflected flap. 
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The next eight items of input data describe the wing. 

Item number 4 specifies the value of NWREG, the number of wing 
regions. The value of NWREG must be one or greater. The purpose of 
dividing the wing into regions is to handle discontinuities in local 
chord length. Region 1 must always extend from Y = 0 to the tip. The 

sequence and position of other regions is arbitrary. A wing with three 

regions is shown in sketch 1 . 

Item number 5 contains three quantities which are also shown in 
sketch 1. They are: 

CRW root chord of region 1, positive quantity 

SSPAN wing semispan, positive quantity 

PHID wing dihedral angle, degrees; positive dihedral is 

shown in the sketch 

Items 6, 7, and 8 are data describing wing region number 1. Data 
input for this region determine the spanwise distribution of vortices 
for all wing regions and all flaps. The present program requires that 
the same spanwise distribution exist on all surfaces. 


Item number 6 contains five indices. They are: 


NCW 
MSW 
NTCW 
NUN I 

NPRESW 


number of chordwise vortices on wing region 1, 

1 :< NCW J< 10 

number of spanwise vortices on left wing panel, 

1 ^ MSW <30 

twist and/or camber? NTCW = 0, no 

NTCW = 1, yes 

if wing has no twist and the camber distribution is 
similar at all spanwise stations, NUNI = 1; for all 
other cases NUNI = 0 (omit if NTCW = 0) 

is the wing pressure distribution (Ap/q) to be calcu- 
lated and printed? NPRESW = 0 , no 

NPRESW = 1, yes 


Note that NPRESW applies to the calculation of the pressure differ- 
ence on each panel of the wing lattice. This calculation is independent 
of the upper and lower surface pressure coefficient calculation governed 
by the index NLOAD in Item 19 . 

The minimum number of spanwise horseshoe vortices is determined by 
the wing-flap combination geometry. The program requires that vortex 
trailing legs lie at the following locations: 

(a) the root chord and tip chord 
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(b) the side edges of all wing regions 

(c) the side edges of all flaps 

(d) points where there are breaks in leading-edge or trailing-edge 

sweep 


Item nioitiber 7 is a set of MSW+1 cards which specify the following: 


Y(I) 


PSIWLE (I) 
PSIWTE (I) 
NFSEG(I) 


4“ Vk 

Y coordinate of the trailing leg on the left wing 

panel; Y is a negative number on the left wing panel, 
but positive values may be input and the program will 
change the sign [Y(l) = 0.0,Y(MSW +1) = -SSPAN] 

leading-edge sweep of wing section to the right of the 

trailing leg, degrees; positive swept back (measured 
in wing planform plane) 


trailing-edge sweep of wing section to the right of the 
jth trailing leg, degrees; positive swept back (measured 
in wing planform plane) 


number of flaps behind wing section to the right of the 
ith trailing leg [0 < NFSEG(I) < 3] 


When 1=1, Y(I) =0 and the other three quantities are omitted. 

Item number 8 is included in the input data deck only if NTCW = 1 in 
item number 6. These data specify the twist and/or camber distribution 
of wing region number 1 in terms of the tangent of the local angle of 
attack of the camberline for a root chord angle of attack of zero degrees. 
The input data are : 

ALPHAL(J) tan of the region 1 camberline at the vortex-lattice 
control points. If NUNI = 1, only data for the chord- 
wise row adjacent to the root chord are input. The 
first value is for the control point nearest the lead- 
ing edge. If NUNI = 0, data for all chordwise rows 
must be input starting nearest the root chord and work- 
ing outboard. Data for each row start on a new card 
(omit if NTCW = 0) . 


The vortex-lattice control points are at the midspan of the three-quarter 
chordline of each elemental panel laid out by NCW, MSW, and the Y(I) 's 
of items 6 and 7. 

Item numbers 9, 10, and 11 are input data for the other wing regions. 
If NWREG, item number 4, is one, items 9, 10, and 11 are omitted. If 
NWREG > 1, these items are repeated in sequence for regions 2 through 
NWREG. 

Item number 9 contains two indices which locate this wing region 
spanwise relative to region 1. They specify the subscripts of the 
elements in the Y(I) array, input in item 7, associated with inboard and 
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outboard side edges of this region. 

IIN inboard side edge is at Y(IIN) 

lOUT outboard side edge is at Y(IOUT) 

Item number 10 contains five quantities. They are: 

NCW number of chordwise vortices in this region, 

1 :< NCW ^ 10 

NTCW twist and/or camber for this wing region? NTCW = 0, no 

NTCW = 1, yes 

NUNI if this wing region has no twist and the camber distri- 

bution is similar at all spanwise stations, NUNI = 1; 
for all other cases NUNI = 0 (omit if NTCW = 0 for 
this region) 

CIN inboard side-edge chord (see sketch 1) , positive 

quantity 

TESWP sweep angle of the trailing edge of this region, degrees 

The vortices are laid out using the value of NCW for this region and the 

portion of the Y(I) array beginning with Y(IIN) and ending with Y(IOUT). 

Item number 11 is included in the input data deck if NTCW = 1 in 
item 10. These data specify the twist and/or camber distribution for 
this wing region. These data are prepared in the same manner as described 
under item number 8 , the similar information for wing region 1 . 

Item number 12 specifies the number of flap regions and identifies 
the flap edges which require trailing leg position correction. 

NFREG number of flap regions (0 S. NFREG :< 10) 

NIDF number of flap edges at which trailing leg positions 

must be corrected (0 .< NIDF i 3) 

IDF (I) location of flap edge where correction of trailing leg 

position is necessary; i.e., at Y(IDF) 

For a wing alone, NFREG = 0 and items 13 through 16 are not included 
in the input data deck, A flap region is a particular flap arrangement 
behind some spanwise region of the wing. The program will handle a total 
of ten flaps, thus if there were ten spanwise flaps, there could be a 
maximum of ten regions . 

Correction of the position of the horseshoe vortices trailing legs 
is necessary when adjacent flaps (spanwise neighbors) have different 
deflection angles and/or different chord lengths. This occurs when the 
inboard edge of one flap region shares the same Y-station as the outboard 
edge of the adjacent flap region. Use of this index is illustrated with 
the sample cases . 
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Item mimbers 13, 14, 15, and 16 are input data describing the flaps. 
The user must exercise care in preparing these input data as the order of 
the items is important. Typically, item numbers 13 through 16 are 
arranged in the following manner. Item number 13, specifying the number 
of flaps (NINREG) in the first flap region and their extent, is followed 
by items 14, 15, and 16 for the first flap in this region. Items 14, 15, 
and 16 are repeated for each additional flap in the first region. The 
flaps must be specified in order, with the flap nearest the wing trailing 
edge occurring first (see sketch 2) . When the first flap region is com- 
pletely specified, items 13 through 16 are repeated for the second flap 
region, and so on. The sample cases in figures 7(a) and (b) illustrate 
the input for a wing with multiple flap regions with multiple flaps in 
each region. 



Sketch 2.- Typical slotted flap 

Item number 13 contains three indices required to describe the flaps 
in a particular region. 

NINREG number of flaps in this region, 1 :< NINREG :< 3 

IIN inboard side edge lies at Y(IIN) of item 7 

lOUT outboard side edge lies at Y(IOUT) of item 7 

The next three items of input data are repeated in sequence NINREG times 
beginning with the flap nearest the wing trailing edge and moving rear- 
ward. 

Item number 14 contains four indices. They are: 

NCF number of chordwise vortices on this flap, 1 ^ NCF i 10 
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NTCF 


twist and/or camber for this flap? NTCF - 0, no 

NTCF = 1 , yes 

NUNI if this flap has no twist and the camber distribution 

is similar at all spanwise stations, NUNI = 1; for 
all other cases NUNI = 0 (omit if NTCF = 0 for this 
flap) 

NPRESF is a pressure distribution (Ap/q) to be calculated and 

printed for this flap? NPRESF = 0, no 

NPRESF = 1, yes 

The vortices are laid out using the value of NCF for this flap and the 
portion of the Y(I) array input as item 7 beginning with y(IIN) and 
ending with Y(IOUT)- IIN and lOUT were input in item 13. 

Note that NPRESF applies to the calculation of the pressure differ- 
ence on each panel of the flap lattice. This calculation is independent 
of the upper and lower surface pressure coefficient calculation governed 
by the index NLOAD in Item 19. 

Item number 15 contains data which locate this flap with respect to 
the surface ahead of it, specify the inboard and outboard edge chords, 
and give the streamwise deflection angle. 

GAPIN the distance between the leading edge of this flap and 

the trailing edge of the preceding surface, measured 
in the plane of preceding surface at the inboard side 
of the flap 

CRFIN inboard side-edge chord of this flap 

GAPOUT the gap distance at the outboard edge of the flap 

(defined similar to GAPIN) 

CRFOUT outboard side edge of this flap 

DELXZ the streamwise deflection angle measured relative to 

the wing root chord direction, degrees 

A streamwise plane containing the inboard edge of a double-slotted flap 
configuration is shown in sketch 2. The leading edge of each flap lies 
in the plane of the preceding surface. All quantities in item 15 are 
input as positive values. 

In a typical USB configuration, the main flap around which the jet 
is deflected is a Coanda surface or a continuous flap. Generally, the 
flap is a single surface flap with a constant radius of curvature. A 
flap of this type is modeled with three straight flap segments with no 
gaps between them (GAPIN = 0.0 and GAPOUT = 0.0 in Item 15). The 
individual flap chords represent the actual surface length of the Coanda 
flap, and the flap deflection angles are chosen to best represent the 
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true deflection angles. Best results are usually achieved when the last 
flap segment has a deflection angle equal to the maximum deflection angle 
at the trailing edge of the Coanda flap. This is not the case for a 
deflection angle of 90®. In this extreme case, the last flap should be 
deflected a smaller amount. As mentioned in a previous section, a drawing 
of the section through the Coanda flap will aid in choosing the best 
vortex lattice model. One possible representation of a highly deflected 
Coanda flap is shown in sketch 3. 



Sketch 3. Typical Coanda flap 

Item number 16 is included in the input data deck if NTCF = 1 in 
item 14. These data specify the twist and/or camber distribution of 
this flap. They are prepared in the same manner as described under 
item number 8 for the wing except that the twist and/or camber angles 
are measured relative to the angle of the flap inboard side-edge chord. 
These angles are all measured in a streamwise plane. 

Item number 17 is a set of NFPTS cards containing the X, Y, Z- 
coordinates, in the wing coordinate system, at which the total induced 
velocity components are to be calculated. There is one field point per 
card, and there can be no more than fifty points in this table. This 
item is omitted if NFPTS = 0 in item number 1. 

Item number 18 contains one index. 

NRHS the number of successive cases to be treated for this 

wing-flap combination, NRHS 1 

The successive cases permitted by NRHS are those which affect only 
the right-hand side of the equation set for the circulation strengths 
(egs. (14) and (14) in ref. 5). Thus, the wing-flap geometry must 
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remain unchanged in successive cases. Changes are permitted in items 19 
through 25; therefore, the successive cases may involve different angles 
of attack and/or different jet wakes. 

The last six items of input data are repeated in sequence NRHS 
times . 

Item number 19 contains thirteen quantities which are : 

ALFA wing root chord angle of attack relative to the free 

stream, degrees 

KJET index indicating manner of interference calculation 

KJET =0, jet parameters and interference not 
calculated, power off 

KJET =1, jet parameters input and interference 
velocities calculated 

KJET = 2, previously calculated jet parameters and 
interference velocities input via tape 4 

KEI index provided to allow multiple sets of jet parameters 

and induced velocities to be input via tape KEI when 
KJET = 2. Current version of the program is restricted 
to KEI = 4 (see the discussion at the end of item 
number 19 for the use of this index) . 

KUNIT index indicating disposition of jet parameters 

KUNIT = 0, no action required for jet parameters and 
induced velocities 

KUNIT =1, jet parameters and induced velocities 

stored on tape 4 for future use. KJET = 1 
and KEI = 0. 

NLOAD index specifying force calculation method 

NLOAD = 1, traditional method; i.e., V x F on each 
panel 

NLOAD = 2, integration of pressure on each panel 
(not recommended when KJET > 0) 

NLOAD = 0 , both methods 

number of panels from which forces are omitted during 
total integrated force calculation (see the discussion 
at the end of item number 19 for the use of this index) 
(NJPNL ^ 30) 

index for force calculation option (see the discussion 
at the end of item number 19 for the use of this index) 
MFRC = 0, all horseshoe vortices on wing and flaps 
contribute to the velocity field used in 
force calculation (power off) 

MFRC = 1, induced velocities from horseshoe vortices 
are not used in force calculation (power 
on) 

NCFJ index for force calculation option (see the discussion 

at the end of item number 19 for the use of this index) 
NCFJ = -1, omit all induced velocities associated 

with jet from force calculation (power on) 
NCFJ = 0, include jet induced velocities in force 
calculation 


NJPNL 


MFRC 
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NCFJ = 1, include vortex ring jet model induced 
velocities in force calculation 

NTLF index for force calculation option (see the discussion 

at the end of item number 19 for the use of this index) 
NTLF = 0 , forces on the bound portion of the 

trailing legs in each panel are included 
in force calculation 

NTLF = 1, all trailing leg forces neglected 

NFJ number of flaps in direct interference of jet 

(1 ^ NFJ < 3) 

NFJN(I) identification number of flaps in direct interference 

of jet, NFJ values, all flaps must be in same region 
and must be numbered in order 

The index KEI is included to provide the user with the option of 
reading multiple sets of previously calculated jet parameters and inter- 
ference velocities; however, some minor program modifications are 
required to tailor this option to the specific needs of the user. First, 
the tape unit numbers desired, in addition to tape 4, must be defined 
on the program card (USBOOl) . Second, change the rewind command on card 
USB419 to apply to the general tape number KEI in place of the specific 
tape unit 4. The last modification required is to change READ (4) to 
READ (KEI) on card UIN014 in Subroutine UVWIN. 

The index NJPNL is included so that the forces on certain specified 
panels can be neglected in the calculation of section normal forces and 
span load distributions. This is used only if there are certain portions 
of the wing on which forces were not measured and thus not included in 
section characteristics. A case in point is the data of reference 6 in 
which section normal force coefficients are computed from measured pres- 
sures, but pressure data are not available in the region of the nacelle. 

By omitting the forces on the wing panels which fall in the nacelle 
region, the predicted loadings can be compared directly with the data. 
When this option is used, the program also outputs the forces and moments 
computed considering all panels. 

The three indices MFRC , NCFJ, and NTLF are included to provide 
options in the force calculation method. For power-off calculations, 

MFRC = 1 and NTLF = 1 will produce large savings in computer time at the 
sacrifice of accuracy in the final results. At low flap angles, 6^ < 30°, 
predicted lift coefficients are three to fifteen percent higher when 
MFRC = 1. The smallest difference occurs at low angles of attack. At 
higher flap angles, 6^ == 70°, the difference in lift coefficient can be 
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as large as 20 percent. For all power-off calculations, it is recoimnended 
that MFRC = 0, NCFJ = 0, and NTLF = 0. 

For power on calculations, these three indices are more important. 
Because of the large additional loading on the flaps associated with the 
turning of the jet, large forces can occur as the result of a small 
perturbation velocity acting on a large circulation. Experience has 
shown that reliable results are obtained consistently if MFRC = 1 and 
NCFJ = -1. As before, computer time is conserved at small expense of 
accuracy if NTLF = 1. 

Item number 20 contains the NJPNL panel numbers, JPNL(l), from which 
the forces are omitted (see item 19) . These panel numbers may be any- 
where on the wing and flap lattice, but they must be in ascending order 
in the input list. 

Items 21 through 25 identify the initial jet wakes, and they are 
omitted if KJET = 0 or 2 . 

Item number 21 is a single card containing five indices pertaining 
to the jet calculation. They are: 

NHEAD number of heading cards to identify the jet model, 

NHEAD >. 1. This index is independent of the similar 
index in Item 1. 

NJET number of jet wakes on the wing semispan; NJET = 1 for 

two-engine USB model. (NJET i 2) 

NVLP number of panels excluded from jet interference calcu- 

lation (0 i NVLP i 100) (see the discussion at the end 
of item number 21 for use of this index) 

NCRCT index indicating whether or not field point locations 

are corrected with respect to vortex ring locations 
(see the discussion at the end of item number 21 for 
use of this index) 

NCRCT = 0 , corrections made 

NCRCT = 1, corrections not made (to be used for 
diagnostic purposes only) 

JPRINT index indicating whether or not optional output from 

the jet program is required (see the discussion at 
the end of item number 21 for use of this index) 

JPRINT = -1, minimiim output 

JPRINT = 0, induced velocities at wing control points 
output from subroutine JET 

JPRINT =1, individual jet velocities at each control 
point output from subroutine JET 

The index NVLP is provided to allow exclusion of wing-flap lattice 
panels from the jet induced velocity calculation. Often there are 
panels on which the induced velocity field from an external source of 


25 


disturbance is not needed; for example, the panels on the wing which in 
reality are located inside the fuselage. There are also panels near the 
wing tip which are far removed from the jet wake. On thise configurations 
there is no point in calculating a very small perturbation velocity which 
will have no noticeable effect on the predicted loading distribution. 

The major effect of the use of this option is a savings in computer 
execution time, as the time required to calculate jet induced velocities 
at control points is directly proportional to the number of points. An 
example of the use of this option is shown with the sample cases. 

The last two indices in item 21 are provided for diagnostic purposes 
only. For general program usage, these indices should be JPRINT = -1 and 
NCRCT = 0. NCRCT is an index used during program development to investi- 
gate a situation in which a control point was located very near the edge 
of a vortex ring. Unrealistically large velocities were induced until 
the relative positions between the control point and the vortex rings 
were corrected. This correction places the vortex rings on either side 
of the control point equidistant from the point. When the index JPRINT 
is equal to zero, jet induced velocities at the control points are output 
as they are computed. This is a duplication of output. If the user 
requires information regarding the contribution of each individual jet 
to the total induced velocity at a control point, JPRINT = 1 will cause 
this output to be printed. 

Item number 22 is a set of NHEAD cards (from item 21) containing 
hollerith information identifying the jet. The information may start 
and end anywhere on the card and the information is reproduced in the 
output just as it is read in. 

The following two items are repeated in sequence NJET times. 

Item number 23 consists of one card which contains the following 
jet specifications: 

the thrust coefficient of the J'th jet on the left wing 
semispan. This value is usually the total Cy of the 
configuration divided by the total number of jets 

the ratio, Pj/p, of J'th jet density to free stream 
density 

the coordinates, in the wing system, of the origin of 
the J'th jet model (YQ < 0) 


CMU(J) 


RHO(J) 


XQ(J) 
YQ(J) ) 
ZQ(J) J 


26 



DS(J) 


the ring spacing of the vortex rings in the J'th jet; a 
typical value is 0.2 bQ where Lq is the initial height 
of a rectangular jet 

NCYL(J) the number of entires in item number 24 to specify J'th 

jet parameters 


Item number 24 consists of NCYL(J) cards containing the following 
information: 


XCLR(J,N) 

YCLR(J,N) 

ZCLR(J,N) 


} 


the N'th set of coordinates specifying the centerline 
of the J'th jet in the jet coordinate system (fig., 5) 


AJET(J,N) 

BJET(J,N) 


the half width of the rectangular ring at the N'th 
point on the center of the J'th jet 

the half height at the same point 


THETA (J,N) the slope of the centerline in degrees at the point 
being considered; THETA is input equal to zero for 
USB jets 

DSFACT(J,N) scale factor for the spacing between the vortex rings 
downstream of the N'th point; in region of wing and 
flaps, the values should be 1.0; aft of the last 
flap, the values can be greater than 1.0 to save 
execution time 


Item number 25 is a set of NVLP panel numbers, NVL, at which no jet 
velocities are calculated. This item is omitted if NVLP = 0. The panel 
numbers in the NVL list must be input in ascending order. 


If successive cases are requested (NRHS > 1 in Item number 18) , 

Items number 19 through 25 may be repeated here. It is recommended that 
the multiple case option be used only to change angle of attack, thus 
only Items 19 and 20 are actually repeated. Since the jet model can be 
assumed independent of angle of attack, this is not a severe limitation. 
The program will allow all Items 19 through 25 to be input for each run, 
but this will eliminate the option of placing the jet parameters in 
permanent storage for future use. 

Upon completion of the calculations specified by the above input 
deck, the program returns to the beginning. Additional input decks, 
starting with Item 1, may be stacked one after another. If the option 
involving the storing and retreiving of the influence matrix and jet 
parameters are used, it is recommended that Stacking of cases be avoided. 
Several sample cases illustrating various types of runs are discussed in 
the following section. 
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Sample Cases 


In this section, sample cases are described to illustrate the input 
preparation and the use of the program. The first sample case is a com- 
plete calculative example involving a two-engine USB configuration with 
rectangular cross-section jets (ref. 6) . Other sample input decks are 
provided to illustrate the options described in the previous section. 

The vortex-lattice layout on the wing and flaps of the two-engine 
USB configuration from reference 6 is shown in figure 3. The Coanda flap 
deflection chosen for this case is 32°. This particular configuration 
and lattice arrangement are used extensively for the comparisons with 
data in reference 1. 

The Coanda flap, located directly behind the engine, is modeled 
with three flaps. Each flap has a chord of approximately 13 percent of 
the wing chord. The deflection angles of flaps 1, 2, and 3 are 12°, 22°, 
and 32°, respectively. The midspan double slotted flaps, flaps 4 and 5, 

(6^ = 15° and 32°) and the aileron, flap 6, (>5f = 20°) are modeled as 

single flap segments as illustrated in figure 3. A total of 136 panels 
make up the vortex lattice model . 

The vortex ring jet wake model is set up using the guidelines 
discussed in the Jet Wake Specification section. The actual inlet of the 
nacelle is located at X = 2.34 m (7.68 ft) ahead of the wing leading 
edge. This is a longer run length than required by the jet model; 
therefore, the model inlet is placed at = 0.61 m (2.0 ft). The span- 
wise location of the centerline of the nozzle is at Yq = -1.14 m (-3.73 ft). 
For this particular case, a total thrust coefficient of two (C^ =2) is 
chosen; therefore, the individual engine thrust coefficient is equal to 
one (Cy = 1.0). Using information on nozzle exit velocities provided in 
reference 6, the density ratio, p/p^ =1.25, is obtained from equation 
(3) . The expansion of the jet from the nozzle is specified in the follow- 
ing manner. From figure 4, the jet velocity ratio at the flap trailing 
edge is approximately U/U = 0.7. Lacking more detailed information on 
the actual spreading of the wake, it is assumed that the jet cross section 
maintains a constant aspect ratio (a/b = 6) over its entire length. 

A complete input deck, set up for the above sample case, is shown 
in figure 7(a). This deck is organized to carry out the following series 
of calculations. The influence matrix is computed and stored on tape 8 
where it is available for permanent storage if the user desires. Three 
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successive cases (NRHS = 3) are specified, the first being at a = 0®. A 
general jet model is specified (KJET = 1, KEI = 0) , a tangent USB jet is 
set up by the program, and the jet induced velocities at wing-flap con- 
trol points are computed. The jet parameters and induced velocity field 
are stored on tape 4 (KUNIT = 1) for use at other angles of attack and 
where they are available for permanent storage if desired. Notice that 
the wing panels which normally lie inside the fuselage are omitted from 
the jet induced velocity calculation (NVLP = 10) . The force calculation 
is carried out twice, once considering the entire vortex lattice model, 
and the second time omitting the ten panels which fall in the nacelle 
region on the wing (NJPNL = 10). The last angles of attack, a = 8.5 and 
20°, use the set of jet induced velocities calculated at a = 0° at the 
wing and flap control points (KJET =2, KEI = 1) for a normal loading 
calculation. This ends the first input deck. The execution time for 
this calculation is approximately 50 seconds on the CDC 6600 computer. 

A second input deck for the same model with greater flap deflection 
(6^ = 72°) is shown in figure 7(b). This deck is set up to calculate the 
influence matrix and store it on a permanent file if desired. One angle 
of attack is specified for this, and the calculation is carried out for a 
power-off condition. Typical execution time for this deck is approxi- 
mately 100 seconds on the CDC 6600 computer. 

DESCRIPTION OF OUTPUT 

This section describes the output from the USB program. The con- 
tents of a typical set of output from one of the previously described 
sample cases is discussed. This is followed by a description of some 
of the program stops and error messages which may occur during execution 
of the program. 


Sample Case 

The output generated during the execution of the sample case shown 
in figure 7(a) is presented in figure 8. The contents of each page of 
output are described in the following paragraphs. For purposes of this 
discussion, a page of output is defined as the information printed 
immediately following a "new page" request in the print commands. Thus, 
a defined page of output may actually contain several printed pages of 
copy. The quantity of information on a page of output will depend, in 
part, on the size of the lattice used to represent the lifting surfaces. 
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The first page of output, shown as figure 8(a), is headed by the 
program title "USB AERODYNAMIC PREDICTION PROGRAM," followed by the 
identification information on the several cards at the front of the input 
deck. This is followed by the reference quantities consisting of the 
reference area and length and the center of moment location. Next on the 
first page is the wing input data. All of the input describing the wing 
geometry and lattice arrangement is included in this section. 

Output page 2 in figure 8 (b) contains all the input data describing 
the flaps including the geometry and the lattice arrangement. Also 
printed on this page are the coordinates of the four corners of each 
flap in a coordinate system fixed in the flap with the origin at the 
leading edge of the inboard chord of the flap. The purpose of these 
coordinates is two- fold. First, they illustrate the slightly distorted 
shape of the flaps that occurs because the flaps are attached to swept 
trailing edges of the upstream surface. The flaps are required to span 
a certain length which is defined in planform; therefore, the actual 
surface must be longer when it is deflected around a swept hinge line. 
Second, the coordinates are useful in locating the flap loading center 
of pressure defined in the flap coordinate system and printed on a later 
page. 

Output page 3 in figure 8 (c) is headed with the title "HORSESHOE 
VORTEX PROPERTIES." This table lists all the properties of the lattice 
elements on each lifting surface. The numbers in parenthesis on the line 
defining the flap number and the region number is the absolute flap number 
to be used when specifying the flaps with direct jet interference. The 
quantities in the last column on this page labeled "ALPHAL(J)" are the 
input values of combined twist and camber. This table completes the con- 
figuration dependent information. The first item following the table is 
a list of the locations at which wing and flap trailing legs are corrected 
if requested (NIDF > 0) . Following this is a single line containing the 
angle of attack and the option indices from Items 1 and 19 of the input 
deck. The next line of output contains the flap numbers on which direct 
jet interference occurs. The last line of output is the input value of 
the jet turning efficiency. 

The fourth page of output headed with the title "INPUT JET PARA- 
METERS," is a listing of the jet input information as shown in figure 
8 (d) . The variables printed are the same values input via the card deck 
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with the addition of two columns of ntmnbers. The variable SCL is the 
curvilinear distance measured along the centerline in the same units as 
the other centerline distance variables. The last column, identified as 
P, is the perimeter of the jet at the particular input station. The 
quantity "GAMMA/V" corresponds to equation (4) . 

The fifth page of output, figure 8(e), has the title "JET PARAMETERS 
FOR TANGENT USB JET. " The first half of this page of output contains an 
expanded table of jet centerline parameters corresponding to the center- 
line of the jet, positioned so that it is tangent to the upper wing and 
flap surfaces, but displaced slightly upward so that it does not directly 
touch the lifting surfaces. The last half of this page contains the 
coordinates of the lower surface of the jet boundary. The coordinates 
XS,YS,ZS define the center of the bottom jet surface; and the coordinates 
XSN,YSN,ZSN and XST,YST,ZST define the corner points of the inboard and 
outboard edges, respectively, of the jet lower surface. These points are 
computed so that the lower jet surface is parallel to the wing and flap 
surfaces. The last line of output contains the panel numbers from which 
the jet induced velocities are omitted (NVLP > 0) . 

The next page of output shown in figure 8(f) is the first output 
from the program after the circulation strengths are computed. This 
page, labeled "HORSESHOE VORTEX STRENGTHS FOR ALPHA = xx.x DEGREES," 
contains the computed circulation strength on each lattice element. The 
circulation strengths (GAMMA/V) are printed in the last full column on 
the page. Also shown on this page are the externally induced jet veloc- 
ities at each control point. These velocities, UEI, VEI, and WEI are 
made dimensionless by the free-stream velocity, and their positive 
directions are defined according to the wing coordinate system; that is, 
UEI is positive forward and WEI is positive downward. The unlabeled 
column of numbers on the right side of the page denotes the position of 
the panels relative to the jet wakes. A zero in this column indicates 
the panel to be outside the direct influence of the jet. A one (1) in 
this column indicates that the panel is near the jet boundary and is 
likely to receive direct interference from the jet. A number greater 
than 1 (i.e., jet number + 1) indicates that the panel is directly 
beneath the jet and is receiving maximum jet interference. 

The output shown in figure 8 (g) is headed at the top "AERODYNAMIC 
LOADING RESULTS FOR ALPHA = xx.xx DEG." This heading is preceded by a 
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heading "TRADITIONAL METHOD" or "PRESSURE INTEGRATION METHOD" which 
indicates the calculation procedure used to obtain the individual panel 
forces. The former method is the usual V x T technique generally used 
with vortex lattice schemes. The latter method involves the calculation 
of the upper and lower surface pressure coefficients using the Bernoulli 
equation. Next is a reiteration of the reference quantities. These are 
followed by the spanwise load distributions. On each lifting surface at 
each spanwise lattice station the span-load coefficient, the section 
normal-force coefficient, and the section axial-force coefficient are 
presented. These results are normal and axial to the plane of the par- 
ticular lifting surface. Following the complete table of section coeffi- 
cients are the wing-alone force and moment coefficients. These results 
are for both right and left wing panels. The axial force, CAW, and the 
drag force, CDW, are both defined as positive aft. The pitching moment 
is positive in the direction that tends to increase the angle of attack 
of the wing. 

The next section of output on this page is the individual flap 
force and moment coefficients. These coefficients are for the flaps on 
the left side of the configuration only. CNF is normal to the individual 
flap surface and the center of pressure of the normal force on this flap 
is at XF(CNF) and YF(CNF) where these coordinates are in the flap coordi- 
nate system defined in figure 8(b). The axial-force coefficient, CAF, 
and its spanwise center of pressure, YP(CAF), follow. The spanwise 
force, CYF, and its center of pressure, XF(CYF), are the next items; 
and finally, the hinge-moment coefficient, CHF, is the last item. The 
sign convention of the flap hinge moments is such that a positive hinge 
moment would tend to increase the flap deflection angle. The hinge 
moments are taken about the flap leading edge. The last items on this 
page are the complete configuration force and moment coefficients. These 
are resolved into the wing coordinate system and the sign convention is 
consistent with that described for the wing alone. 

If Ap/q distributions are requested, they are output on the next 
page shown in figure 8(h). The chordwise location, X/C, at which the 
pressure coefficients are calculated corresponds to the location of the 
bound leg in each lattice element. It should be remembered that the 
pressure is constant over the entire lattice element. 
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The next page of output shown in figure 8(i) is output only if a 
second calculation of the forces with certain panels removed has been 
requested (NJPNL > 0). This page is identical to figure 8(g) with the 
addition of note at the top identifying the panel numbers from which the 
forces are omitted. 

The last page of output containing the induced velocity field at 
specified field points is shown in figure 8(j). Note that both wing-flap 
perturbation velocities and total velocities are printed on this page. 

This concludes the output for the first angle of attack. If additional 
angles of attack are requested, the output starting with figure 8(e) is 
repeated for each angle of attack. 

Error Messages and Program Stops 

The following error messages may be printed during program execution. 
"EXECUTION TERMINATED, ERROR IN DS" 

is printed when the vortex spacing is input as zero or less than zero. 

This is a fatal error and program terminates at a "STOP" statement. 

"JET X OUTBOARD OF WING TIP" 

is printed as a warning only to indicate a possible error in the spanwise 
location of jet "x". Execution will continue, but the program will run 
into difficulties when it tries to compute jet induced velocities. 

"JET X OUTBOARD OF FLAP y" 

is printed when the spanwise location jet "x" is not compatible with the 
flap numbers specified for direct jet interference. This is a fatal 
error, and the program terminates execution at STOP 16 or STOP 36 in 
Siabroutine JETCL. 

The program has a number of error STOPS built into it to prevent 
the user from executing the program with incorrect input data. These 
STOP'S are identified in the following table. 
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STOP NO. 

SUBROUTINE /LOCATION 

PROBABLE CAUSE 

STOP 

JET /JET 362 

DS ^0.0 in Item 23. 

STOP 1 

USBMAIN/USB 123 

Normal stop at end of execution. 

STOP 16 

JETCL/JCL 101 

Incorrect YQ in Item 23, or 
incorrect flap numbers, NFJN , 
input in Item 19. 

STOP 27 

JETCL/JCL 156 

Too many entries in jet table 
in Item 24. Reduce number of 
entries as per Jet Wake Speci- 
fication section. 

STOP 32 

JETCL/JCL 202 

Input jet length is -too short 
to cover wing and flaps. Move 
last entry in table in Item 
24 farther downstream. 

STOP 36 

JETCL/JCL 260 

Same as STOP 16. 

STOP 50 

JETCL/JCL 343 

Same as STOP 27. 

STOP 52 

JETCL/JCL 306 

Same as STOP 32 . 

STOP 60 

JETCL/JCL 380 

Same as STOP 32 . 
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PROGRAM LISTING 


The USB aerodynamic prediction program consists of a main program, 
USBMAIN, and twenty-three subroutines. Each deck is identified by a 
three-letter code in coliimns 74-76 and each deck is sequenced with a 
three-digit n\amber in columns 78-80. The table below will act as a 
table of contents for the program listing on the following pages. 


PROGRAM 

IDENTIFICATION 

PAGE I 

USBMAIN 

USB 

36 

WNGLAT 

WLT 

38 

FLPLAT 

FLT 

40 

INFMAT 

INF 

42 

FLVF 

FLV 

45 

SIVF 

SIV 

45 

RHSCLC 

RHS 

45 

LINEQS 

LIN 

46 

SOLVE 

SOL 

46 

TRLG 

TRL 

46 

LOAD 

LOD 

47 

LOADCP 

LCP 

49 

FORCES 

FOR 

50 

VELSUM 

VEL 

53 

JET 

JET 

55 

JETCL 

JCL 

57 

CORECT 

CRT 

62 

QRING 

QRG 

63 

JETVEL 

JVL 

63 

JTCIRV 

JCR 

64 

FVNOUT 

FOT 

65 

FVNIN 

FIN 

66 

UVWOUT 

UOT 

66 

UVWIN 

UIN 

66 
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PffOORAM (INPUT, OUTPUT, TAPESa I M*UT<TAPe6«0UT9l IT fTAPe<ifT*pe0) 


T*PM 18 The Input and output unit pop the j|t jnoucco velucitje* 
TAPE! la thc Input and output unit pop the fvn array 


HINO and multiple flap VOPTEK lattice program nXTH DCFLCCTCO hake 

HOOtPifo to Include jet induced velocity field calculation 
FROM uaa JET! tangent to UPPFP IURFACE of NING AND FLAPl 

DIMINIION ITATENENT 

DIMENBXON HEAD(IO) 

dimension U(t)«V(2),H(|),XPPTt86)iVFPT(SO),EFPT(90) 

TYPE iTATEMtNT 

logical ckvcl 

COMMON ITATEMCNTS 

COMMON /REFOUA/ SSPAN||REF,RCFL»XH,ZM 

COMMON /INDEX/ HaH,HH,HTOT,NCHl(SO),IMAX,NFSES(SO),LAaTF(IO) 

COMMON /CPDAT/ ALPHAL(|90),XCP(lfQ),YCP(290WZCP(a90i, 

1 CALPHL(290),SALPHL(2S0) 

COMMON / INDEXF/ NFREa»NFLAPa,IDFLAPUO,2)«NCFMO),MaF(10),HF(iO), 
IMSTART(IO) ,mcnO(10),NFICGF(10) 

COMMON /BLDAT/ XBL(2S0),yBL(290)iZ9L<IS0),TPSt(2S0),8H(l90) 
common /RSIDE/ CIR(250WuEI(2S0)|VCI(29O),nCK290) 

COMMON /aTak/ SlNALFfCOtALF 
COMMON /PVCLI/ UP, VP, HP 

COMMON /XVZCL/ NJET,NeVL(2),Xa(2),V0(|),Za(2^,CAMVJ(2},0S(2), 

1 RH0(2},CMU(2),xclr(2,29),VCLR(2,2SS,ZCLR(>,M),THCTA(I,2S), 

2 eCLR(2,29),AJCT(2|29),BjeT(2,29i,DIFACT(2,21)# 

1 UCl(I,29)< VCLUiZS), PCL(2,29), CFJ,CFK 

COMMON /NFJCL/ NFJ,NFJN(SJ 

COMMON /cldat/ Ns8(2),is(2,ii),xBi(2,M),vaa(2,m,Z8a(i,in, 

1 T88(2,iniBaB(2«U),A||(2,U),X8N(2,U),YSN(l,U), 

I ZIN(2, ! I), xaT(2,U)fY|T(|,n)«Z8T(2,U), 088(1,11) 

COMMON /PTDAT/ NPTJ(I,|90),NCRCT 
COMMON /K'DIFF/ NIDF,10F(10) 

COMMON /LIN9UL/ IP(SOO) 

COMMON /FTLV/ NVTLF 

COMMON /FPNL/ nPRInT,NJPNL,JPNL(10) 

common /JfTCIR/ JFLP(l9d),LJFLP,ClPJ(l90},eNjn90),eAJ(190) 

COMMON /FRCVEL/ NFRC 
COMMON /JB7EFF/ ETAJ 

COMMON /fpctl/ ntlf 

BLANK common •• increase LENGTH IF REGFL PACKAGE NOT AVAILABLE 
COMMON FVN(l) 

FORMAT BTATEMCNTI 
701 FORMATCIAIS) 

T0I.ADSMAT(lKi*2GJ(,3«Hu98 JABOGYnahic PREDICTION PROGRAM //x 
TO) FORmaT(20A«) 

70« FORHAT(1X,20A«) 

709 FORMaT(SF10,0) 

70A F0RhaT(//9X,97hREFEREnCE 0UANTMIE8 USED IN FORCE AND mqhEnT CALCU 
1LATION/10X,UHAREA, i0l,1Ha,F11.9/10X,6MLENGTH,nx, lH«,Fn ,9/iex, 
EDHHOKFNT CCNTER/19X,2HXM,7X,1Mb,FU.B/19X.2HZM,7X,1Hr,FU,9 
1 , 10X,2F10«3) 

712 FnRMAT(lHl,USX,27HHOR8eSHOE VORTEX PRnPER7IP8//l2X, 1 0 UH«), 11H «IN 

16 DATA ,10UH«)) 

728 FORMAT(/lX,6HvnRTFX,2X|3ttH«COORDINATfS OF BHUNn LEG MIDPOINT, 2X, 

1 SaH«««CnOR01NATES OF CONTROL POINT**., 2X , 1 QMB .L , SmECPiZX, 

2 10MHALF**lDTH,BX,7M9URFACC/lX,AHNUMRFR,102X,5H8LQPe/OX,lMJ,6X, 

8 AMXBL(Jl,AX,6HVBL(J),AX,6HZ8L(J),6Y,6HveP(J),AX,6HVCR(J),6X, 

a AHZCP(J),aX,4HPS!(Jl,TX,9H8«(J),8X,RHALPHAL(J)/1 
72« FORMAT(UX,n,9(2X,F10,S)) 

729 FORHaT(/12X,10(1H*),AhRFGIGn,T2,9H FlAP,I2,nh DATA ,10(1M«), 

1 2H (,12,1H) ) 


72a FnRHATnH),20V,S9HHriR9|SMOE VORTEX STRENGTHS FOR ALPHA ■ , 

1 F9,1,RH 0FGRCCa//12x,innH*),nH «ING DATA ,10MM*) ) 

727 FORMAT(/lX,bHVnRTEl,2V,3UH*..»*CnNTROL POINT CnQRDlNATC8*«M*,2X, 

1 )flM***rxTiRNALLT Induced velocities** / ixiAhnunber 

2 /AX,lMj,AX,6HXCP(J),AX,AHVCP(J),AX,AHZCP(J>,AX,aMUEI(J),AX, 

3 6HVFI(J),6X,6H«iCI(J),5X,7KGAMHA/V n 
720 FORMAT(AX,I1,7(2X,F10,S),2I7) 

782 FORMAT(F10,9, U19) 

710 FORMAT (lHl,2SX,<lRHXMt)UCE0 VELOCITIES AT SPECIFIED FIELD POINTS // 
1 iiOX,AlHl**— *•* nINQ/FLAP ... mXN6/FLAP«V1 

2nF »*..*»T/u)x,28hpFRTURBATIon VELUCITIFB / 

8 15X,IMX,RX, lHV,9X|HZ,UX,2raV,AHU/VlNF,ttX6MV/VlNF,aXAHW/VXNF )) 
7)9 FORMATn0X,9Fi0,S) 

78A FORMAT (//IOX2BHNO JIT INTERFERENCE ON FLAPS) 

787 format (//10X29HJET INTERFERENCE On FLAP8»SIR) 

738 format (// lOXfUlMNlNG TRAILING LEC8 CORRECTED AT Y(I), T « ilOlA) 
7ao format (iHi,2ex,iBHTRA0iTT0NAL method ) 

7A1 FORMAT MH1 ,20x,27hpre 88URE iNtECRATInN mETmdD ) 

7«9 FORMAT r/lOX,2uHJET TuRNl»-C EFFICIENCV « F5,|) 

791 format (////lOXSHALPNA,5XaHNFVN,ttX5MNUNIT,2x9HNFPT8,SXAHNPRlNT, 

1 3XaMKJET,9X)HKFI,AX8HKUNlT,)X9HNL0AD,8X9HNJPNL|8X«MMFRC, 

2 ttXtiHNCFJ,aXttHNTLF,9x3HNFJ /9XF 1 0 , 3, 1 8X8 ) 

795 format (lHl,26x,4aMjNDUCED VELOCITIES AT SPECIFIED FIELD POINTB // 
1 ttOX,AlMt******»* HlNC/FLAP •••.•••.••I**» HINC/FLAPpJETaVI 

2nF — — I/48X,2)HpErtuRBATION VELOCITIES / 

8 ISX, 1MX,9X, lHT,RXlHZ,«X,2(aX,6HU/VlNF,aXAHV/VlNF,«XAHH/VlNF ) ) 


DATA DTnR/,017ti9329/,FOURPl/12,9AA870A2/,ZERO/0,/ 

NVTLFiD 

NJCTaO 

CFKaO.O 

NFRCaO 

C 

C OPTIONS FOR CALCULATING, STORING, AND REUSING FVN ARRAY.,., 

C NFVNiO , NUNlTaO * CALCULATE Fvn, DO NOT STORE 

C NFVNaO , NUNITiS • calculate PVN, STORE ON TAPES 

C NFVNai , NUNXTR8 ■ READ FVN ARRAY FROM TAPES 

C 

C NFPTSbNUMBER of field POINTS AT mHICH wlNC*FLAf INDUCED 

C VELOCITIES ARE TO BE COMPUTED 

C 

1000 READ (9,701) NHEAD,Nf VN, nunIT,NFPTS,NPRINT 
IF(E0F(9>) 1,2 

1 |TOP 1 

2 continue 

IF (NFVM.GT.O .and, Nun|T,LE, 0) NFVNaO 
IF (NUnIT,n(,0 ,AND, nuniT,ne,8) NUnITsS 
mRITE(A,702) 

e INPUT AND OUTPUT CASE IDENTIFYING INFORMATION 
DO 8 1«1 ,nhEAD 
rEAD(5,703) mead 
8 MRITE(A,70a) HEAD 
C 

C INPUT AND OUTPUT REFERENCE QUANTITIES AND MOHpNT CENTER LOCATION 

C 

R!AD(9,709) SREF,REFl,Xm,Em ,fTAJ 
HRtTErA,706) SREF,REFL,XM,ZM 
IF (ETAJ.lE.O.O) ETAjal.O 
C 

C INPUT AND OUTPUT MING DATA AND LAYOUT "INC VORTEX LATTICE 


call nnCL*T 

INPUT number OF FLAP REGIONS, NFREG 

NIDF • number of BEmispan STATIONS AT hhicm TRAILING LEGS 

FROM MiNC VORTICES MUST BE CORRECTED FOR DIFFERENTIAL 

FLAP deflection ancles 

IDF ■ SEMISPAN stations CnKRESRONOlNO TO FLAP JUNCTIONS 
(lOF ,Nt, j OR lOF ,NE, mskaI) 

read (5,701) NFREG, NlDF,(IOFn).I«l.,4lOF) 

INPUT DATA FOR ALL FLAPS AND LAY OUT VORTICIB 

nFLAPS *0 

T» (NFREG, tT,0> CALL FLPLAT 


C 

c 

c 



e 

e C0*OUT{ lINf AND COltNC riF tOCAl OF ATTACK DUC TO TxtST AND 

C CANiM 

e 

00 «1 jaliMTUT 
ALFaATANtALFHALU)) 

CALFHL(J)iCO$(ALF) 

it IALFHL(J)b8IN(aLF) 

e 

e Hi!TF HINO VORTEX DATA 

e 

hRITC(*«7IR) 

WRSTEtA»T2S) 

DO 90 Ktl,HN 

FlflHaATAN(TRtI(K))/DTOR 

10 HR1T|(A»T|«) K|XK(K)«YeUK)«ZI|.<X]<XCR(K)«TCR(K),ZCP(K)iRltQH» 

1 IH(K)»ALFHAL(K) 
lF(NFLAFi,EO.O) BO TO AS 
C 

e HRITE FIAR vortex data 

e 

DO AO NFaliNFLAPO 

Him (0»T29) lDFlAPtNFin«lDFt.AR(HF,|),NF 
NRlTECAfTIS) 

KLa^OTARTCNF) 

KUaMEND(NF) 

DO 99 KiKLfKU 

RlIBHaATANtTFOtCK) WOTOR 

99 HRlTEC^iTli) XfXll(K1,YBL(K)»ZIUK)tXCR(K)*veR(K)iECF(K)»P|lQH« 

1 iK(K)fALFHAUK) 

AO CONTINUE 
A9 CONTINUE 

c 

e CORRECT TRAILINB LEA FOiXTXQNI AT FI.AF JUNCTION! 

IF (NlDF.lE.O) 00 TO AA 
call TRLB 

NRITI (AfTlI) (XDF(J),JilfNIOF) 

AA continue 

c 

e*AA«*At*«*M«««****M«*«**«*«**«****0*«««*«***«*««tA«««**AA«A*A««*«*«i 

C 

e ADD core area for influence coefficient matrix 
e IF REOFL II NOT AVAlLAlLl i RCHOVE THU SECTION AND INCREASE 
e THE OlMFNtlONI OF FVN IN BLANK CONNQN* ABOVE* TO htoTamtOT 
e MHERE MTOT a TOTAL NUHBER OF VORTEX FANEll ON mInB AND FLAF 

e 

IFLlaO 

CALL REaFL(IFLB) 

LFLbIFLBaMTOTamTOT.I 

CALL REQFLaFL) 

e 

C**A***t«*********«*A*t«««A«A**««««««««t*««««t***«««««««<««««*«*t*««*«*. 

IF (nFvn.OT.O) bo to ttO 

e 

e calculate influence coefficient left HAND IIDBi FVN 

e 

CALL INFmaT 

e 

e TRIANBLULARIZE LEFT HAND SIDE 

e 

call LINEQKHTnTfFVN) 

IF (NUNtT.GT.QI call FVNQUTCFVN,HT0T,NUNIT,IFI 
BO TO 211 

lie call fvnin(fvn,mtot»nunitiIF) 

111 continue 

IF (NFRTB,LE*0) 60 TO 211 
00 20* KJalfNFFTS 

lOA READ (9*T0S3 XFPT(KJ}|VFFT(KJ),ZFFT(KJ) 

C 

C READ number OF RIGHT SlDfli AND FOR EACH FIND VORTEX 
e iTRENGTKt AND LOAD DISTRIBUTION 
C 

112 RFAO(9»701) NRHS 
DP 79 KRalfNRHS 

READ (9i 7 12) ALFA(KjET«KEI|KUNlT,NLOAn*NJPNL,MFRC«NCFJ(NTLF* 

1 NFJ*{NFJN(KJl,KJal«NFJ1 

IF (njpnl.GT.O) read f5,701) ( JPNL( J) * J«1 ,NJFNl) 

C 


USB 194 
USB 1ST 

USB 19B 
USB isa 
USB UD 
UBB Ut 

UBB 142 

USB 14S 
USB 140 

UBB 149 
USB 144 
USB 147 
USB 14B 
USB 149 
USB 170 
USB 171 
UBS 171 
USB ITS 
USB 174 
USB ITS 
USB ITS 
USB ITT 
USB ITS 
USB 1T9 
UBB 1B6 
USB lit 
USB IBt 
UBB IBS 
UBB IBS 
USB IBS 
USB 1S4 
USB 1B7 
USB IBS 
USB 1S9 
UBB 190 
UBB 191 
USB 191 
USB 193 
USB 194 
USB 199 
USB 194 
USB 19T 
USB 19B 
USB 199 
UBB too 
USB let 

USB tot 

UBB 20S 
UBB tO« 
UBB 109 
USB 104 
USB lot 
USB tOB 
USB t09 

USB lie 

UBB 111 
USB 111 
USB IIS 
UBR 114 
USB 119 
USB 114 
USB 21T 
USB liS 
USB 119 

use no 

UBB 111 
USB III 
• iSS IIS 
UBS lift 
UBB 219 
USB 114 
MSB IIT 
USB IIB 
USB 229 

USB 2SA 
USB 251 
UBB IS2 
UBB 231 


c 


OPTIONS FUR CALCULATING AND STONING JET INDUCED VELOCITY ARRAY 

USB 

IS« 

c 



USB 

119 

c 


KJFTbO no JEI calculation, INDUCED VELPCITTES may BE INPUT 

USB 

IS4 

c 


■1 JET CALCUl ATION 

USB 

1ST 

c 


•2 jET parameters and induced VELOCITIES Input 

USB 

ISB 

c 



USB 

IS9 

e 


OMTin^S FOR FORCE CALCULATION METHODS 

UBB 

140 

c 


NLOADal CONVENTIONAL METHOD 

UBB 

141 

c 


NLOADal integrated PRFISUREI 

USB 

241 

c 


NLOADaO BOTH HETHODB 

UBB 

245 

c 



•IBB 

144 

c 


NFJ » number of flars in direct intcrffrence mith jet 

USB 

249' 

c 


NFJN a FLAP NUMBER* ALL muST BE IN SAME REGION 

USB 

244 

c 



USB 

147 

c 


NJPNia NUMBER OF PANELS On hhICH FORCES ARE nHT INCLUDED 

USB 

241 

c 


CmJPNL.LE.SO) 

UIB 

249 

e 


JPNLR panel NUHRER 

USB 

290 

e 



UIB 

191 



if (KR,6T,1) »r!TE (4*701) 

USB 

191 



mRITE (b*Tbl) ALFA,NFVN,NUN]T|NFPTSfNPRII*T|KJET,KEI,KUNIT, 

USB 

195- 


1 

i NLnAO*NJPNL*MFRC»NCFJ,NTLF*NFJ 

USB 

194 



CPJRNCFJ 

USB 

299 



IF (nFJ,EO.P.AnD,KJET,NE.O) HRITE(4*TS4) 

UIB 

294 



IF(NFJ.LE,0) CD TO 70 

USB 

297 



MRITE 14*737) (NFJN{KJ)*KJal,NF'j) 

USB 

298 



•RITE (6*T«9) ITAJ 

USB 

299 


TP 

CONTINUE 

UIB 

24D 

c 



USB 

24} 



alfralfa 

USB 

242 



ALFAaALF«*DTDR 

USB 

245 



8INALFb8IN(ALFA) 

USB 

244 



COBALFsCOSCALFA) 

USB 

249 



EXvELRKJET.NE.O 

USB 

244 



IF (kJET.1) 77,71*74 

USB 

247 

c 



USB 

24B 

e 


INPUT INITIAL JET parameters 

USB 

249 

e 



•IBB 

27fl 


71 

NTiHEaO 

USB 

271 


TS 

call jet (hT0T,XCF*YCR*ZCR*UE]*VEI*"EI»NT1mE) 

USB 

272 



NTIMERNTIHE91 

USB 

271 

c 



USB 

274 

e 


calculate TAnGEMT jet CENtERLXNC 

USM 

ET9 

e 



USB 

274 



call jetcl 

USB 

277 

e 



USP 

27B 

e 


calculate jet induced velocities at MlNGaFLAP CONTROL POINTS 

USB 

179 

c 



USB 

210 


72 

CALL JET (MTOT,XCPf VCP*ZCP iUEI*vEX*NEI,NTXmeJ 

MSB 

241 

e 



USB 

IB2 



IF (KUNIT.LE.D) go to 77 

USB 

2BS 

e 


STORE externally INDUCED VELOCITIES PH TARE 4 

USB 

2S4 



CALL UVMOUT 

USB 

289 



GO TO 77 

USB 

284 


7ft 

CONTINUE 

USB 

2B7 

c 



USB 

26B 

c 


IF KJET82, READ externally INDUCED VELOCITIES FROM TAPE 4 

USB 

209 

c 



USS 

290 



CALL UVMIN (Kin 

USB 

291 



nUMBCFK 

USB 

292 



CFKal.o 

USB 

295 



NTlMfij 

USB 

294 



NCRCTR9 

USB 

299 

e 


PRINT INPUT JET PARamETETS and set up NPTJ(>,«) ARRAY 

USB 

299 



CALL JET (MTOT,XCP*yCP»ZCPfilEIiVEliMEI*NTlME) 

USB 

297 



CPRiDUM 

USB 

29S 

c 



USB 

299 


77 

CONTINUE 

UBB 

501 

c 



•ISB 

SOI 

e 


ADJUST circulation O'- -INC-FLAP PANF-LS TO ACCOUNT FOR JET 

USB 

502 

e 


TURNING* AND C*LC, INDUCED VtLUCITY AT CHNTROL POINTS 

USB 

505 



MTlMEal 

•■SB 

504 



CALL JETVIL (MTIMF) 

USB 

109 

c 



USB 

504 

e 



USB 

507 

c 


calculate RIGHT hand sIDL OF EOUlTInNI 

USB 

501 

e 



USB 

509 



CALL RHSCLC(exvFL) 

USB 

510 





00 


C SOLVE FOR VORTICITV DTSTRIBUTIO^ FUfi THIS PTfiHT HANO SIDE 

C 

C*LL SOLVE(ClR,FVN,MTnTJ 

e 

C PRINT VORTtX STREnsTHS 

e 

-RITE(6»T?*) 

HRITE(«fT2T) 
lP(,NnT,EXVeL) 60 TO 99 
IP (LJPLR.LE.OJ CD TO 91 
DO B2 NPal ftJPLR 

kjFajFLP(»^P) 

92 CIR(^•P)■CIP(NP)»CIflJ(NP) 

91 OCT 80 MPBl *mh 

OAHHAaClR(NP)«FQURPI 

60 WRITE UfT29) nr, xCP(NP) « YCP(NP) f ZCP(NP) ,UFt (NP) * VEI (NP) «WEI (NR), 
1 gamma , (NPTJ(J»NP),Jr1«NJET) 

Cn TO 9P 
99 CONTINUE 

DO 89 NPali^M 
6AMHAaClRfNP}*FnuRFl 

68 hRITE(9*T28) NP* XCP(NR) i VCP(NP) « ZCP (NP) i ZERO* ZERQ# ZEROiGAMMA 
19 IP(NPLAP8,EQ.0) 60 TO 96 
00 99 NFslfNFLAPi 

WRITE (6*725) IDFt AP (NF« 1) » lOFLAPCNF ,2 ) ,nP 

wRITE(6f727) 

h9shsTaRT(NF) 

mEbheno(NF) 

I^(,NOT,!XVEL) GO TO 62 

DO 9i nPih9*mC 
6AHMAaCIR(NP)*F0uRPI 

91 hRITf (6«7I9) Np, XCP (NR) * VCP ( NP 1 . ZCP ( NR) « UE I C NP ) « VE I ( NP) * mE I ( nP) « 
1 gamma I (NPTJ(J»NP),J«1,NJET1 

60 Tn «S 

92 continue 

DO 9} NP«M9,HE 
6AMUAaCIR(NP]*F0URPl 

99 WRXTC(6»T26) np, xCp (NP )* YCP (NP )* ZCP (NP) * ZF R n, ZERO* ZERO* G amma 
99 CONTINUE 

IP ajPLP.ie.o) 60 TO 96 
00 aj npbi*ljplp 

NPbJPLP(NP) 

•S CTR(NP)bCIR(NP)«CIRJCnP) 

96 continue 

c 

e AOJUIT JET induced circulation on flap PANEL! POR LOAD CALC* 
mTIMEbI 

call JETvEL (mtImE) 

c 

IP (NLOAO*1> 99,98*97 
99 CONTINUE 

e 

C CALCULATE L0AD9i PORCH AnQ MOMENTS • TRADITIONAL METHOD 

e 

IP (MFRC.CTfO) nFRCRI 
CALL LOAD(EXVEL) 

WRITE (6,7«0) 
call P0RCE8 
nPRCsO 

IP (NLOAO-l) 97,78,97 

97 CONTINUE 

e 

C calculate loads, PORCES AND MOMENTS • PRF89URE MfTNOO 

c 

IP (MPRC.GT.O) NFRCBl 

call LQADCP (EXVEL) 

WRITE (b,7R1) 

CALL PORCEB 
nPRCbO 

e 

e CALCULATE velocities at SPECIFIED MELD POINTS 
C 

78 IF (NpPT8,t0,0) 60 Tq HO 
IP CNJFT .LE.fll CO TO lOj 
mBITF CW.TSS) 

OO TO 10? 


•IS9 Ml 
iiSR 512 
USN 519 
US9 519 
usn 519 
USB 516 
USB 517 
USB 5ia 
USR 519 

>.‘$B 520 
USB 521 

usn 122 
USB 529 
US8 52« 
US8 529 
use 524 
U98 327 
USB 129 
MSB 529 
USB 519 
USB 5il 
USB 152 
USB 511 
USB 159 
USB 159 
USB 916 
USB 117 
USB 119 
USB 519 

USB lao 

USB lat 
USB 142 
USB Ittl 
USB 1R« 
USB 169 
USB 144 
USB 147 
USB }4B 
USB 149 

USB 190 
USB 191 
USB 192 
USB 191 
USB 199 
USB 199 
USB 196 
MSB 197 
USB 196 
MSB 199 

USa 160 
USB 161 
USB 162 
USB 145 
USB 160 
USB 169 
USB 566 

use 567 
USB 169 
USB 3*9 
MSB 570 
MSB S71 
USB 172 
USB ITl 
USB 574 
USB 179 
USB 57* 
USB 177 
USP 17B 
MSB 579 
USB ISO 
USB 591 
USB 195 
USB 582 
USB 594 
USB 59S 
USB 196 
USB 58T 


105 -RITE (6,750) U3K }B8 

102 cn^TINl'E iiS4 599 

NTlMEa,^ J ,,||| jqg 

J*»l USB J9| 

NCPCTaO uSP 392 

DO 109 Jal,NFPTS USB 39f 

XFPaXFPTtJ) iiSn 194 

YFPbYFPT(J) IJSP 39^ 

ZFP»ZAPT(J) ti98 596 

CALL VELSUM (XFP,YPP,ZFP) >119 197 

IF (NJET ,LE«0) 60 Tn 10<i USB 198 

C*LL JfT (JA,XFP*YFM*ZFP,U,V,-*NTIMH ,,5^ 

UjtUP il38 400 

VJPVP IJ3R 401 

-J»wp ,,8B 402 

call jrCIRV (XFP,VFP,ZFP,JA) IjSH 4Q3 

'IPB0P6UJ USB 404 

VPRVP+VJ use 409 

mPaaPApJ J3H 40^ 

C U,v,« ARE CUMR0NENT3 OF total FLO* FIELD USB 407 

U ll)«l' ( I )*UP*Cn5ALF g34 408 

V CMbV (l)tvP U3n 409 

M (!)■■ (n + MP»8INALP ilSR 4)0 

WRITE (6,759) XPP,YFp,ZPP,UP,VP,PiP,U(l),V(l),«(l) USR 411 

GO To 109 1134 4)2 

104 UjRUPaCOSALP USD 415 

VJRVP iiSH 4)4 

Wjawp-SlNALP USB 419 

WRITE (6,719) XFP,YFP,ZFP,UP,VP,WP,UJ,VJ,WJ 1.38 4)4 

109 CONTINUE US8 417 

110 continue USB 416 

IF (nRHB.GT,!) rewind a ,^3D 4)9 

79 CONTINUE US* 420 

CO to 1000 USB 411 

end use 422 


SUBROUTINE WNGLAT 

e 

C this SUBROUTIwe reads in the alN6 INPUT DATA AND LAYS OUT THfc 
C wlN6 vortex lattice 

c 

C COMMON STATEMENTS 
C 

COMHQW /TOLRNC? TOl 

COMMON /REFOUA/ SSPAn,SREF,REFL,Xw,zm 

COMMON t WNGDAT/ Y(iO),PSlMLE(10),PSlwTE(5n),SPHl*,CPHlw,TPHlw 
COMMON /INDEX/ MSH',M*,t,TOT,NC"l (30) , IMAX,NF58G(10) ,LA8TP(10) 
COMMON /CPDAT/ 4LPMAL(250),xCP(29f)),VCP(2Bn),ZCP(29ft), 

1 CALPHL(290),9ALPML(2Sn) 

COMMON /TlDAT/ XTERC3O),XTCL(50),XHR(29n),YTLR(2S0),ZTLR(290), 
I XTLL(2*»O>,YTlL(2S0),ZTLL(210) 

COMMON /BLOAT/ xaL(25n),VBl (2S0),ZBL(25O),TP8T(290),8 w(2S0) 
COMMON /FTLDAT/ FTLXH(280),FTLXL(250),FTLZR(290),FTLZL(250) 
COMMON /Lncuws/ CONA{?50)*CnNH9(29o),CON9L(250),TFMp,TF«R 
COMMON /CHORDS/ CM90Lw(10),CflOOTF(10),CTIPF(10) 

COMMOK- /BPSOAT/NpRt5M,NPRE8F(10),ELAREA(290),»LE(l0) 

C nlMfNSTON statement 

c 

dimension xTE(lfi) 

c 

C FOR“AT statements 

C 

701 FORMATflOIS) 

70? FORMAT(8FtO,0) 

705 FOa*.ATf //SX, 15H.IN5 1..PUT DATA) 


-LT 001 
WLT 002 
wLT OOi 
WLT 004 
WLT 009 
wLT 006 
-LT 007 
WLT 008 
•LT 009 
-LT 010 

-LT Oil 
WLT 012 
•LT 015 
-LT 01 4 
WLT (US 
wLT 016 
«LT 017 
-LT 018 
wLT 019 
*LT 020 
-LT 021 
■LT 022 
■LT 025 
aT 02« 

■LT 029 
WLT 026 
-LT 027 
'*LT 028 
<LT 029 
•LT 018 



ro* FOBM*T(//10K, MHPlGlOs 

T09 rnRHATM9Xi^OHINBOAt)D FOSE CMPAH « * F 1 Q , S/ i <SX < KhSE •< 1 9P*Mf 11 K * t 

iriO,9/lSViUMO|Heo«*L A^CLCfSXi !^a»f 1(1,5) 

T04 FONHAT(/15X,n,«3H VQRTICF8 ARE TU BE LATO HuT Ii« TMfS PEGU»v/2ftX. 

SPiXKiSr BV|IS,10H CHOR 0 * 19 fc) 

TQT PQRMATr/ 15 Kf 59 HSPANKl 9 E L?CAT!QN 9 OF tra|i.isG vORTEv LEG 9 « 8 «EEF A 
I*^6LEI OF/20X,45HiilMC StCTJO*. TU T«E RIGHT AHfi ►•UNBER DF FLAPS BEHI 
iHi) THIS 8 ECTinN// 2 tX, 8 H 8 PAN»i 8 E» 7 X,«MLE S^f FPf 7 * * Ahte «t‘EEP» 7 X, 
S6HNUHBER/21XieHL0CATini<,irx,9MQF f>LAR|) 

Ton FOpMATOFlP.Of IS) 

TOR FORHATn9V»3Fls,S,RX«t2) 

Tie FORMATr/l 5 X, 2 BHTHl 8 REGION EXTENDS From v ifFlO.SfTH TP v >iF 10 « 5 ) 
TU FQIlMAT(SI 5 i 2 FtQ« 0 ) 

T12 F0Rmat(/15X,25hIhB 0AR0 SIOE-EDGE CHPRO i,F i n,5/l 9 X, IRhtraILZhG EDC 
IE |HEEP*SX*lHi,Fie,9) 


data DTOR/Q,01TRS32R/,PI/S.Ut5R26S/ 
tRPU'T number 0F ITiNG RFCIONS 
READ tSfTOn NmREG 

X*^PUT RECIOH 1 data And lav out vurtices 

READ (5*702) CRh«88RAN,RhID 
NRCCat 

hRITF (AiT03) 

WRITE (RfTOa) «dRE6 

WRITE (4»T05) CRW* S8PAW,RHID 

TOL KISRANfiSiOEvOSIwaE 

READ (5*T0n NCW|H|N,NTCWfNUNI«NRREIW 

HWaNCWAMSW 

HTOTshm 

WRITE tOiTQR) MM,HtW,NCW 
1MAXRH8WA1 
WRITE (A, 707) 
on 10 iRid^Ax 

READ (liTOB) Y(I)*R9IWLE(n«R9I«TI(n,Nr9E6(I) 
nCmkurnch 

IF (IaEO.I) WRITE (R*70R) V(I) 

TR (Ti«,n 

IWRITE (4*70R) Y(X)«R9lWLEa),R|Ji*TE(I),NFIEGM) 
IF (Vd), 67,0,0) V(I)«-Y(n 

10 COHTIWUE 

DO 11 IR1*H|W 

11 nF9E6(I)RWF9E6(U1) 

IF (NTCW,WE«0) GO Tn II 
DO 20 Jilf“w 

20 ALPHAL(J)RO,0 
60 TO 25 

21 IF (NUHI.NE.O) 60 TO 2S 
HStO 

DO 22 JHtiat,Hri,NCH 
h^imn«nch 

22 read (9*702) (AlPHAU j) , JiJNki,MN) 

60 Tn 25 

2) READ (5*702) (ALPHAL(J)f J«1*NC«) 

DO 241 Jr2«N8w 

Jja(j«l)«NCw 
DO 24» KBl ,NCw 
KKajj^K 

21 ALRHAL(KK)rALPHAL(W) 

25 eONTlNUr 

LAV OUT REGION 1 NiNG VORTICES 

TEHP«U,OtPI/SREF 

TEwR*0,5*T1hR 

PHIiDTORtPHID 

SPHlNaSlN(PHI) 

CPMiwacnsCPHi ) 

TPHiNaSPHik/CPMlH 

FnCmbNCw 

XLFfDwO.O 

XTE(na»CR* 

CTLLiCR* 


nUMiar|NR/figc« 

C 

C U'HP '’VM r*«ORP*Ibt R'^fS 
c 

on tiO I> 2 *I^AX 
I-*l*l 
L*STKIM)au 
TLRVaVf I-) 

TLLYtvn) 

TLR2wTlRY*TPHI« 

TLLE«tlLV*TPhi« 

TPSILEiTANlPSrwLKDtOTOR) 

TP9!TFaTAN(P9!»TtCn*DT‘''R) 

DVaTLL7»TLRV 

ILF<naXLE<lH)*D7»TP8ILE 

XTt(niXTE(I‘4)*0Y*TP|rTf 

RLXi(XLE(I)tXLE(I'*)>*n,5 

XTER(lH)aifTE(lH) 

DP9I»TP9ILE-TPsITE 

CTtRtCTLL 

CTLL»CTLRaDV*OP8I 

CBLR(CTLR*CTLL)*0,5 

DCRDaCBL/FNCw 

CHRDLwCI-laCHL 

TLRXtXLEUH) 

TLLX«XLE(T) 

TCONBRaDUHA*CTtR 

TCDNBL»nuHA*CTLL 

C 

C LOOP OVER VDRTKES IN This ROW 
C 

JJwf l«2)*NC" 

DO al Jwi»NCw 

lVaJJ*J 

FJaJ 

FACPw(FJ*0,75)^FwCa 
FACCr(FJ«0,25)/FNCh 
VCP(IV) iRLX«FACC«CaL 
XTLR(IV)aTLRX»FACB*CTLR 
YTLR(lV)aTLRV 
ZTLR(IV)bTLRZ 
XTLL(IV)aTLL**FACB*CTLL 
VTLL(Iv)bTLLV 
ZTLtnvjaTLLZ 
FtLXR(IV)BTLRXpFACC«CTLR 
FTLZRtTV)BTLRr 
FTlxl(IV)bTLLX«FaCC*CTLL 
FTlZLMVjbTLLZ 
ELAR£A(Iv)rDCRD 
COnBR(IV)bTCONBP 
eONBL(tV)aTCON(lL 
411 CONTINUE 
CO CONTtNUr 
C 

C LOOP OVER OTHER nInC REGIONS IF PRESENT 

c 

)F (nnrfg.EO.I) go Tn 100 

!iO 50 hb|,*4-reg 

vRITE (6,7041) N 

READ (5,T0I) TIN, lour 

•RITE (6,710) Y(IlN),v(inUT) 

RFAD (5,711) nC»*,wtcw,nmnI,cIA',TESnP 

nShbIOUTpIIn 

NvnRiNSNANC* 

• RITF (6,706) NViJR,NSfc,»'C- 
•RITE (6,712) CIN,TfSriP 
C 

C lav nuT vnRTiCE9 For this reciun 
c 

fwc««nci» 

CTllwCIN 

OUMAaTFMH/FNC« 

c 

C L'lnp nvEw churd^ISE Rn«s 
c 

lHtG»llN*l 

on 60 Itr>4FG,Ir)bT 


•IT 1 «R 
-LT lU 
•IT 111 
'•LT lit 
•LT m 

•LT 116 
*LT 115 
*LT lU 
WLT 117 
•LT 11* 
-LT 119 
■LT 120 
•LT 12\ 
■LT 122 
•LT 123 
■LT )2« 
•LT 125 

-LT (29 
•LT 127 
•LT 12B 
«.LT 129 
•LT ISO 
■ LT 131 
■LT 112 
-I T 133 
• LT 130 
•LT 135 
•UT 136 
-LT 137 

•LT 139 

•LT 135 
■LT IttO 
•LT 1411 
-LT 162 
•LT 163 
•LT 166 
•LT 165 
•LT 166 
-LT 167 
•LT 165 
•LT 165 
•LT 150 
•LT 151 
•LT 152 
-LT 153 
•LT 156 
•LT 155 
•LT 1S6 
•LT 157 
•LT 15B 
•LT 155 
-LT 160 
WLT 161 
•LT 162 
•LT 163 
•LT 166 
•LT 165 
•LT 166 
-LT 167 
-LT 16B 
-LT 166 
hut ITO 
-LT 171 
•LT 172 
-LT 17» 
■LT 176 
-LT 175 
•LT 176 
-LT 177 
•LT 179 
•LT 176 
-LT 190 
•LT 151 
-LT 1B2 
•LT 193 
-LT 196 
•LT 185 
•LT 196 



e 

c 

c 


l**rnlm\ 


SHIFT VOSTfX DAT* SI) Nt- VOBTlCfS C*»- BE IsafRTCD 

NCtaSUHaO 
DO kl JalflH 
41 NCBlUHtNCHSUHTNCMl (J) 
mmihm^kCh 

MTOTawik 

NCmsuhbncmSUh^i 

If ri.ro, IMAX) CO to ss 

XajMNCkr 

4t jaj^l 
KaK«l 

XCF(J)aXCB(K) 

»TL4(J)aXTLS(K) 

VTLStJiBVTLB(Ki 
ITUBf JJaZTL«(KJ 
XTutJ)axTLL(K) 

VTLirJjaVTLUK) 
rTLLtJlBZTLLrxi 
FTL*a(J)aFTL>IB(KJ 
FTLZR(J)aFTLZR(K) 

FTtXLrjJaFTL*L(KJ 

FTL*LCJ)aFTLZU(K) 

ClARC«(J)aeLAREA(K) 

CONBRrj)aCOH6R(K} 

CO»JBL(J)bCO^BUK) 

ALPHAL(J)»ALFHAL(K) 

AUPHAL(»<)aO,0 
IF (K.QT.NCHSUM) GO Tn 42 
4S NCHI(tH)aNCxl(!H)«NCM 
TLRVaV(lM) 

TtLVSVri) 

TLR2aTLRY*TPHlw 
TLLZaTUVaTFMlB 
SLFa(XT((l)«XTC(lM))«o,9 
TFSILrBTAN(F8lwTC(n*OTOR) 

TF 8 ITEbTan(TCShF*DTOR) 

FS 1 HTC(I)bTC|MF 

OPStaTFItir-TFSlTe 
OYaTLLVaTLRY 
CTLPbCTLI. 

CTLLBCTLR^DYtOFS] 

CSLF(CTLR*CTLL)*0.8 
DCROaCBU/FNCH 

CHROLF(lH)BCHROLa(IH)*C0L 
TLRXaXTE ( IH) 

TUXaXTE(l) 
lTCR(lM^aXTE(tM)«CTLR 
*TEUlN)BKTf(n«CTLL 
TCOMSRaDUHAaCTLR 
TCnN8l.aOUMA*CT{.L 

(NTc«.xf,o.»NO,i,m.me) »uo (»,?o») (»blci.hii,nc«) 

IF (NTCH,Nf,0,AN0,I,GT,I8E6,A»J0,NUNl,eQ,d) READ (8,702j (X8L(H)f 

1 Hb ) , H ) 

e LOOP OVER VORTtCeS IN THIS ROW 

e 

JJaNCW8UH*| 

00 70 jaliNCM 

rvajjAj 

FJaj 

FACBa(FJ.O,TS)/FNCk 

FACCb(FJ.0.25)/FnCh 

XCP( !V)«BLX-FACC*CBL 

XTLR(IV)aTLRX«FACB*CTLR 

YTLRriV)aTLRY 

ZTlR(Iv)»TlRZ 

XTLLnv)BTLUX«FACB*CTU 

YTLinvjBTlLY 

ZTLLfIV)aTU.Z 

FTLXRaV)*TURX»FACC*CTL« 

FTlZR(IV 1 bTLRZ 

FTLXLUVJaTLLX-FACC^CTLt 

FTlZLCIV)bTLLZ 


"LT 187 
«LT las 
-LT 189 
HLT 140 
HLT IQt 
NLT 19J 
-LT 198 
-IT 199 
NLT 148 
-LT 144 
-LT 197 
-LT 199 
-LT 199 
fcLT 200 
-LT 201 
-LT 202 
-LT 20J 
-LT 204 
-LT 208 
-LT 204 
-LT 207 
-LT 208 
-LT 204 
-LT 210 
-LT 211 
-LT 212 

-LT 21S 
-LT 214 

-LT 219 
-LT 214 
-LT 217 
-LT 218 
-LT 214 
-LT 220 
-LT 221 
-LT 222 
-LT 22S 
-LT 224 
-LT 228 
-LT 224 
■LT 227 
-LT 228 
-LT 224 

-LT 250 
-LT 251 
-LT 212 
-LT 255 
-LT 254 
-LT 258 
-LT 214 
-LT 257 
-LT 258 
-LT 214 
-LT 240 
-LT 241 
-LT 242 
-LT 245 
-LT 244 
-LT 248 
-LT 246 
-LT 247 
-LT 248 
■LT 204 
-LT 280 
-LT 281 
-LT 282 
-LT 251 
-LT 284 
-LT 288 
-UY 286 
-LT 287 
-LT 288 
-LT 284 
-LT 260 
-LT 261 
*LT 762 
►-LT 265 


FLARFAUVlaDCRn 

rt.*.BR(lV)«TCO*»B- *LT 268 

CONBLdVlaTCO-BL .iT *66 

ALRm *L ( 1 V ) ■ 0 , 0 pf^j 

!F <‘JTC-,6T,0) ALPHALdwJaXBLfJ) ,-iT 265 

70 continue ^LT 264 

60 COnTjnijE I 

80 continue ^LT 271 

^ -LT 272 

C CALCULATE other -JnC vORTCX OUAwTITIfS aLT 275 

^ *lT 77 a 

100 6 'iHaO, 5 /rPHl* 

00 tOI T 276 

XHL(J)atXTU(J)*XTLR(J))*0,8 „LT 277 

Yfltr J)afYTLLtJ)»YTLR(jn*0,8 -LT 278 

ZBL(J)BrZTLLrj)«ZTLR(J))*0,8 ^LT 274 

yCP(J)bYBL<J) «LT 280 

ZCPtJ)aZ8 L(J) wlt 241 

TPai(Ji«fXTLR(J)*XTLLtJ>)/ (YTLR(J)-YTLL(J)1*CPHIW <LT 282 

• ■tJjaDUH*(YTLR(J)»YTLL(Jn .LT 285 

ELAREA(J)aELAREA(J)*Sw(J)»2,0 hUT 284 

CPNAf J5bTEmp*Sm(J) ,g_ 

101 CONTINUE „LT 286 

RETURN 287 

-LT 288 


C 

e 

c 

c 

c 

c 


c 

c 

c 


SUBROUTINE FlPlAT nfti 

TMji Subroutine reads in the flap data and lavs out the flap flt 005 

VORTICES including T-E -INC VORTEX SEC-Ents In TH| FLAPS FLT 004 

COMMON STATEMENTS III 

COMMON /CPDAT/ ALPMALI2SO),XCP(290),YCP(250),2CP(280), FLT SoJ 

1 CALPHL(2SO),SALPHl(280) ^LT 009 

COMMON /BLOAT/ XBL(280),Y8L(2SO),ZBL(280),TP8I(218),8-f2501 FLT 0|0 

common / knCOAT/ Y(i01,P5I-LE(50),PSI-TEf50),SPHI-,CPHIi»,TPMl- FLT oil 

COMMON /INDEX/ m8-,mw,«tot,NC-1(A0),IHAX,NFSEC(50),LA8TF(10) FLT 012 

COMMON /TLOAT/ XTERdft),XTELdO),XTLR(280),YTLRri80),ZTLR(J50)# FLT 015 

1 *TLLU5O),YTLLt20O>,ZTLL(25O) FLT ft a 

COMMON / U-nfXF/ HFREG, NFL APS, 10FLAP( 1 0, 2) ,NCF ( 1 0 ) ,MsFn 0) ,HP ( 1 0 ) , FLT 015 
lM8TARTdft),MENndO),NFStCFdO) flt 016 

common /FLPDAT/ 5OCUZd0),C0FLXZ(lft).YFnft,ift),SPHtFdft), flt ftlT 

ICPHIFtlOl FLTftlA 

ji-; sj: 

common /FTlOAT/ FTLXRf280) ,F TlXL t250) ,FTl ZRI280) »FU ZL f250) FLT 021 

COMMON /LOCOWS/ CDNA(25ft),CUNBPt2S01,CnNBLf280),TEMP,TEMR fLT ft2u 

COMMON /CHORDS/ CHRI)L-{50>,CROPTFdO),CTIPFdO) FLT 024 

COMMON /FLAPLE/X-lLfcM0),TWlLCdO),Z-IL£dOl,8«PFLEdnj FLT 026 

COMMON /PR8l)AT/NPRE8N,NPRF5Fd0),ELAREA(28ftl,XLEM0J FLT 027 


format STATtMENTS 


flt 02 « 

FLT 029 


^l. I 

701 F0PMATdHj,«X,l8HFLAP INPIJT niTAl JJ? 

702 FPRMATUnlS) "U 

705 FORMATf/lOXdlHWtClDN NIIMRF R , 1 2/ 1 8X , 9HT Ht RF AREl2,21H FLAPS IN TMl FLT 055 

IS RE6lDN/18x,2ftMTHEY fxUND FRO- Y a,Plft,8,7M TO y a.FlO.B) FLT M*i 

704 FORM6T(8F10,0) . » .Pi JUT li 

70N F0RMATr/i8i,ltHFLAP NiiMRF « , M , 5X 1 M ( , J 2, , m) FfT 

l/2flX.2lHjNHnARf) tor.t r.AP »,Fl(),5/ FLT 0A7 

»»Fl'',8/2nx,2iHIu8ruRD tnCF CHORD a, FLT niR 
7F1 0 ,8/20« , 21 HtUiTaOARO tOUF CHtlNO • » ^ 1 0 , S/2n X , ? t hOEFl CCTION ANCLE FLY 0J9 
^ ** flt ft«ft 




78b 

P0RHiT(/2AXnMlH VORTICES 

ARE 

TO 

B? U?0 O'lT n*^ 

This FLAP/?5x,I2* 

flt 

OBI 


liiH iPtK>isF avill.iox CMOPnaisM 



FLT 

0B2 


T97 

rONHBTM20X»2lH»P*H«l8E L0CAT10H8 

UF/2lX,20HT*itLlNC VQBTtx LE68) 

FLT 

0«5 


708 

F0RMAT(25X,F11.5) 





FLT 

naa 


709 

r0RMAr(/20XMlHXF«YF COnROlSATES 1 

UF FOUR corners 

OF PLAP>2SX* 

FLT 

9BS 



1 2SH(FlAP LIE! IN ZF90 PLANM/iSX 

*2hxF«11X,2htF) 


FLT 

OB* 


710 

F0RMAT(25X»2P11,5) 





FLT 

OBT 

e 







FLT 

OBS 

e 


constants 





FLT 

8B9 

c 







FLT 

050 



DATA OTQR/0,017R5S29/ 





FLT 

051 

e 







FLT 

052 



•RITF (b«70n 





FLT 

051 

c 







FLT 

05B 

e 


LOOP OVER REClnNS 





flt 

055 

e 







FLT 

05B 



00 100 nrbhnfrec 





FLT 

05T 



REIO (5>702) NXNRFGMINiIOUT 




FLT 

058 



•RITE Ib,703) NRMlNRrCfVatS) 

lYdOUT) 


FLT 

059 



XTF0G!bXTER(1IN> 





FIT 

ObO 



YTEOQlBVdtNl 





FLT 

Obi 



ZTEDClaYTFOGXiTPHlN 





FIT 

Obi 



XTEDCOiXTELnOUT*!) 





FLT 

Obi 



yTioGO»Y{tnuT) 





FLT 

Ob« 



ITFOGOiTTEOGOfTPHIb 





FIT 

Ob5 



AN6B0.0 





FLT 

Obb 

e 







FLT 

ObT 

e 


LOOP OVER FLAPI in THIS REGION 




FLT 

Ob4 

e 







FLT 

069 



DO 200 NFb1,NINREC 





FLT 

8T0 



NFLAPSrNFLAPSFI 





FLT 

on 



I0FLAP(NFLAPIi1)pnR 





flt 

0T2 



I0FLAP(NFLAPSi2}bNP 





FLT 

073 



NFSRNFLAPS 





FLT 

OTA 



MlF(NF|)aIOUT«IlN 





FLT 

0T5 



NF8EGFtNPS)9NlNRCG«NF 





flt 

OTb 



read (5*702) ncF(NFS)* 


NTCF*NUNI,NPRE8F (NFS) 

FLT 

OTT 



READ (5*70«) 6APlN,CRF!N,GAPnuT*CRFOUTiOELXZ 


FLT 

OTS 



RPITE (8*705) NFiNFLAPIiGAPIN* 

G*»ouT,eiinv,c»FouT,oti.«: 

FIT 

079 



CP00TF(NF8)*CRF1n 





FLT 

080 



CTIPF(NF8)«CRF0UT 





FLT 

Oil 



ANQRaANC«OTOR 





FLT 

082 



•AN6b8IN(AN6R) 





flt 

083 



CANCaCOS(ANGR) 





FLT 

08B 



ANCbOEUZ 





FLT 

085 



X»INaXTF06IaGAPlN9CAN8 





FLT 

08b 



Y^lMaYTCDGt 





FLT 

087 



Z»INaZTE06IfGAPlN*8AN8 





FLT 

088 



X»lLE(NF|)aXBlN 





FLT 

089 



Y"ILE(nF8)bY)iJN 





FIT 

090 



ZNJLltNFSlaZ-lN 





FLT 

091 



X«0UTaxTEDG0a6AP0UT*CAN8 





FLT 

092 



VMOUTPVTEDCO 





FLT 

095 



zroutpetcdgoagapoutasang 





FLT 

09B 



OELRbOFLXZaDTQR 





FLT 

095 



SDELPaSlN(DELR) 





FLT 

09b 



cnELR*CnS(OELR) 





FLT 

097 



80ELXZ(NFS)aS0ELR 





FLT 

098 



COFLXZ(NFS)aCOELR 





FLT 

099 



XTEDfilaXMlNaCRFlNBCOfLP 





FLT 

100 



ZTE0CI8ZHIN7CRFIn*80ElR 





FLT 

Ml 



XTEDCOaXHOUT»CRFUUT«CDELR 





flt 

107. 



ZTeOGOaZNOUr«CRFOUT*IOELR 





flt 

10} 



NVabCF(NFS)*N8F(NF9) 





FLT 

MB 



•F(NF8)aNV 





flt 

M5 



•STARTtNFaiBMtOTFl 





FLT 

Mb 



MENO(NF9)aMTOTBNV 





FIT 

MT 



MTOTaHEND(NFS) 





FLT 

MS 



•rite (b*70b) nV«H8F(nF8)( 

nCF(mpS) 


FLT 

M9 



M8FPaySF(NFS)Bt 





FLT 

tio 



•rite (B,707J 





FIT 

111 



kbT1n*1 





FLT 

112 



00 210 Jat|H8FP 





FLT 

111 



• ■K«l 





•LT 

IIB 



VF(J,**rsjaY(H) 





FLT 

115 


2M 

•PITp (Bi7081 YF(J,NF8) 





FLT 

Ma 



m8inST«RT(nA8) 





FLT 

117 


kiCFFbxC^ 

’•SFFB'^af (»*FS) 

IF t»-TCF,yF.,6J GO TM ?j? 

DO 211 k«m8,mE 

211 ALVHALCKJaQ.O 
CO TO 2U 

212 IF (liji'Sl.yf ,0) 60 TO Fliii 

on 2l1 jNFBM8fMfc,NCFF 

«Ni“g»»<CFF 

21} bLAD (9rTO<0 (ALPHAL(K)»K«J»<F|Hn) 
CO rn 2U 
21tt t4CFL«‘*SA»«Cf F*1 

READ (9*T0(1) fALFHit(R)»KRM8»>JCFL> 

DO 215 >(R2»*‘9FF 
KKb(k>|)*MCFP»H>J 
00 2l5 Lil»»-CFF 

LLtRL*“*J 

215 ALFHALaURALPMAULLLl 
2U COMTI»^ur 

e 

C L*T out VORTlCta 
t 

DXWaXwoUT«XFlN 

DZWB2wnUT«Z»I^> 

xFDRDXh*CDHft*DZ»>*)DU5 

yF0«V"DUT-T"1n 

2FObOXm*80ELRaDZm*CD2l5 

TPhIFbZFO/TFO 

fhifbATA»<(TFmif> 

SPHIF tMFSJaSlNfFHlF) 
CRHIF(KFS)sC09(FHIF) 

tp$ilcr*fo/yfo 

TP8ITrB(XFQ*CRFOUT*CRFlN)/VFO 

DPS1bTP9TLE«TP8ITE 

F^•CFF•»-CFF 

yLCIbO.O 

CTLLbCRFIN 

fPHlBCPHIF(NF8) 

8FPFLE(MFS)RATA*<(TPStLe *CPNI) 

«R1TE (fciTOR) 

xFFb0,0 

rPFao.O 

«»ITE (6»riO) XFF»VFF 

XFFa.CRFlN 

■RITF t6»TI0) xFF,yFF 

XFFaxro 

yFFBYFO/CPMl 

•rite (b»7|0) XFF*YFF 

XFFbXFO»CRFOUT 

•RITP C6.710) XFP.YFF 

kkbM8«) 

C 

C lOOP OVER C«0RD»18t RO*S 
C 

00 220 Ib2,mSFP 

IHBl.l 

TLRYBvr(l«,NF8) 

TLLVBYFCIjNPa) 

Tt.RZt tTLRY•Y»I^J•TPHJB 
TUER(TUlY.Y-lN)*TpHlF 

dt«tlly*tlry 

XVtI«BXl.El 

XUriB»LEt“AOY*TP$lL£ 

RLXB(XLEItXUF7H)*0,5 

cturbctll 

CTLL«CTtRADY*OPSl 

CBL»(CTtl*CTLP)«0,5 

OCRDbCRL/FnCFF 

RLZ*(TlwZ*TLLZ5«0,5 

BIYB(TlPY*TlLY)*0,5 

S»»0,5*Dy/CPHl 

CLAREanCQD«9*2»0 

TCn>JABTt»'P*9 

TCO^RL»tf-R»CTi L/FnCFF 


FLT 115 

FLT HR 
»LT i?o 
FLT l?l 
FLT 122 
FLT 121 
FLT 12U 
FLT 125 
FLT l?b 
FLT 127 
FLT 128 
FLT 120 
FLT ITft 
FLT U1 
FLT 1!2 
FLT 131 
FLT 13a 
FLT 135 
FLT Mb 

flt mt 
FLT M" 
flt MR 

FLT 1«0 
FLT lai 
FLT t«2 
FLT lto3 
FLT lau 
FLT las 

flt l«b 

FLT 1«7 
FLT ia« 
FLT 1«R 
Flt 150 
flt Ml 
FLT 152 
FLT 155 
FLT 15« 
FLT 155 
FLT 15b 
FLT 157 
FLT 158 
FLT 15R 
FLT IbO 
FLT Ml 
FLT IB? 
FLT 1b} 
FLT Ibd 
FIT IB5 
FLT IBB 
FLT IBT 
FLT IbR 
FLT |BR 
FLT ITO 
FLT 171 
FLT 172 
FLT 17} 
flt I7tt 
FLT 175 
flt 17b 
FLT 177 
flt 17* 

FLT 179 

flt 18'^ 
Flt 181 

FLT 182 
FLT Mi 
flt tP<l 
flt 185 

flt 18B 
FLT 187 

flt 188 

►LT 189 
flt 190 
FLT 191 
FLT 192 
FLT 19} 

flt 1R« 
flt MS 



TC0*>(8R«TtMR«CTLfl/FMCFr 

Lnpp OVER VORTICES In T-18 R0»> 

OUHAbSlZ •SOELR*Xmin 
0UH8aTLRZ*50ELR*<"I^ 

OUMCaT|.LZ*SOELR«X«IN 

oumobrlz *cneLP*Z"i*- 

nUHEaTLPZ*CDCLR^ZtaIN 

PU«F*TLLZ*CD£LR»Z*'!W 
DO ISO KIUSCFF 
KKaKK^l 
pKaK 

FACBa(FK«0,TS)/FNCfF 
FACCa(FK»0.25WFNCFF 
XCFFaSt. X*FaCC*CSL 

xtlrfbxceih«ctlr*facb 

XTUFaXLEI«CTLL»F*CB 

fxtlriklbim-ctlrrfacc 

FXTLL»XLEI-CTLL*FACC 

XCF(KK)bXCPF«CDCLP«DUHA 

xrLff(KK)axri.flF*coiLR4nuHa 

*TLL(RK)»xTLLF*COElR*OUMC 

FTLXR(KK)RFXTLR*COELFaDUMB 

FTL*L(KKJiFXTLL«CDfLF>OUMC 

XBUKKTB(*TLR(KF)*xTLL(>tKn*0,S 

YCPfKX)«BLY 

YTL«(XK)bTL«V 

VTLU(KK)tTULY 

YBLCKWjaBLY 

ZCP(KK)a.XCPF*SDELR«nuHD 

ZTLR(KK)a<XTLRF*30El,RtDUME 

ZTtL(KK)a»xTLLF*80Ei.R«OUMF 

FTLZR(KKU«FXTl,R«SDeLB«DUMe 

FTLZL(KK)a*FXTLL«80ELR«0UNF 

ZBLCKK^a(ZTLR(KK)«ZTLL<KKn*0,9 

8M(KKlaS 

ELiRrA(XK)aELARE 
TPS! (KK)a(TP8lLE«FACB*0P|I)«CPHI 
CON*(KK)«TCONA 
CO^BR(KK)eTCQNBR 
CQNBKKXiaTCONRL 
ISO CORTTMUE 
220 CONTl^UF 

LOCATE IntCRBCcTION OF mIn 6 TRAILINO LCOS WITH 
0XkiaX4ogT*XMlN 

OYfctYi^ni'TaYHlN 

OZWaZMOUTsZHlN 

IOuT»»arOUT«l 
DO 200 JallNilnUTM 

JPiJAl 

!F (NFyCO.RlNReC) LA|TF(J)RNF8 
YYbY(J) 

FACalYY-Yal^Jj/OYR 

X«>KRM< J»Nr)aX« tN«FAC*OXH 
Y»:KRh(J,NF)aYY 

ZMKRM(J«NF)iZa!N«FAe*OZ« 

YYaV ( JP) 

FACa(YY-VaIN)/OY- 
XN«L«( J|NP )aXNlNtFAC*nX«* 
rwKL“(J»*<FJ«Yr 
Z-KLN(J»^F)*Z‘'INtFAC«f)ZN 
200 CONTINUE 

LOCATE Intersection of upstream flaps trailino 
IF (NF.EOJ) GO to 2T0 

nF FBNF 

JFeNFSaNFF+1 

jfpinfs*! 

LOOP OVER upstrEA” Flaps 

nn 250 XaJF,JFF 

mSFUb«8F{0 

N5BJFF»K»1 


FLT 198 

FLT 197 
FLT 196 
FLT 199 
FLT 200 
FLT 201 
FLT 202 
FLT 201 
FLX 20« 
FLT 209 
FIT 208 
FLT 20T 
FLT 20B 
FLT 209 
FLT 210 
FLT 211 
FLT 212 
FLT 21S 
FLT 2ia 
FLT 219 
FLT 216 
FLT 217 
FLT IIB 
FLT 219 
FLT 220 
FLT 221 
FLT 222 
FLT 221 
FLT 226 
FLT 229 
FLT 226 
FLT 22T 
FLT 228 
FLT 229 
FLT 250 
FLT 21t 
FLT 212 
FLT 211 
FLT 210 
FLT 219 
FLT 216 
FLT 21T 
FLT 21B 
FLT 219 

FLT 260 

THIl FLAP FLT 261 

FLT 262 
FLT 261 
FLT 266 
FLT 209 
FLT 266 
FLT 26T 
FLT 26B 
FLT 209 

FLT 290 
FLT 291 
FLT 292 
FLT 293 
FIT 290 
FLT 299 
FLT 256 
FLT 257 
FLT 299 
FLT 299 
FIT 260 
FLT 261 

legs with this flap FLT 262 
FLT 261 
FLT 260 
FLT 265 
FLT 266 
FLT 26T 
FLT 268 
FLT 269 
FLT 2T0 
FLT 2T1 
FLT 272 
FLT 271 


LC’PP OVER ¥ LHCA^lnNS 0^ THAlLI^r^ LEGS ON THIS UPSTRfAa FL*P 


OO 260 JtU-SFi. 

JPaj*l 

YVaYFtJ,JP) 

F*CP(YYaVWlN)/OY» 

X*KRF( J,n 5,«) tX»IN + F4g,ox«» 

ywMRF(J,NS»«)BVV 

ZNXRF(J,NS»MBZalN*FAC*DZ» 

YVaYF(JP,jF) 

FACafYY«VNlN)/f)Yi« 

X«FLf I J» nS,k)«x*IN*Fac*OXw 
Y»KLF f J,sS,«ObyY 
Z«<KLF(J,NS»K)BZikIN*FAC*DZ* 
260 CONTINUE 

250 CONTINUE 
270 continue 
200 CONTINUE 

100 continue 

RETURN 


FLT 270 
FLT 279 
FLT 2T6 
FLT 277 
FLT 276 
FLT 279 
FLT 280 
FLT 281 
FLT 282 
FLT 281 
FLT 280 
FLT 289 
FLT 286 
FLT 267 
FLT 286 
FLT 289 
FLT 260 
FLT 291 
FLT 292 
FLT 295 
FLT 29a 
FLT 299 


C 

e 

c 

€ 

e 


c 

c 

c 


SUBROUTINE InFhAT 

calculates influence COEFFICIENT MATRIX 
common STATEMENTS 
COMMON Fvwm 

COMMON /FLPDAT/ 80ELXZnO)»COELXZ(lO),Yr{30,lfl),8PHIF(10Ji 

jcPMiFno) 

COMMON /WXOATW/ XWKRw(50#3) ,Ym«R«(50,3),ZwkRw(10,1),XmKLw(10,3J, 
lVHKLHtlOil)»ZHKLa(10,1) 

common /.xoaTF/ XWKRFt10,2»10),v»KRFfjo,2,ioT,ZwKRF(ie»2,lO), 
iXNXLFf 10, 2,1 01, Y-KlF 150,2,1 O.ZmKLF (10,2, 10) 

COMMON / mnODAT/ Y(lni,PSIi.LEnO),PSIwTE(3fO,6PHI»*,CPMt-,TPhJ« 
COMMON /jvnEx/ MSk, Mir,MTOT, nCnk JO), lMAx,wFSEfi(|0 JiLASTF (ItlJ 
COMMON /CPDAT/ *LPhaL(250>,XCP(290),vcP(290),ZCR(250>» 

1 CALPHLf290),SALPHL(290) 

COMMON /TlOAT/ X7tRCJol,XTFL(101,XTL9(250),YTLRf250),ZTLR(290), 

1 XTLL(250J,YTLL(250),ZTLL(2!»0) 

common /FlVFRC/X1,y1,zI»x2,y2,Z2,XP,vp,ZP,fu,FV,F*,ax,AZ 

CnM^o*- / JNOtXF/ NfREfi,NFLAP8,IorL*PnO,2),NCFnO),«SFnn),MF(ioi, 

lM8TARTnoi,MEN|5MO) .nfSEGKIO) 

COMMON /NOIFF/ Nlf)F,loM10> 
common /ThlRnC^ TOl 

inop OVER ALL CONTRUL POINTS 

jFLAPal 
CPHFBCPMlFni 
SPHFaSPHlF ( } ) 

cokZBacnEL xzn ) 

S0XZ6asnELXZ( 1 1 
on 200 Jai , mT 0T 
XPtfXCP(J) 
vParcPf J) 

7RaZCPf.n 

lAASEaO 

CAlFbCALPmL ( J) 

SALFbSALPhlCJ) 

IF (J,LE,m-1 go TO 40 
IP (J.LE .mEnU(. 1FLAPM C'» TP iO 
jFLAPBjf lap«1 


INF not 
inf 002 

INF OftJ 
INF OOtt 
INF 009 
INP 006 
INF OOT 
INF 008 
ZNF (109 
INF <no 
INF 0)1 
INF 012 
TNF oil 

INF 014 
TNf 015 

INF 016 
INF 017 
TNF ni8 
INF 019 
INF 020 
INF 021 
INF 022 
TNF 021 
INF 02u 
TNF 029 
T‘iF 026 
INF 027 
INF 02S 
INF 029 
INF OJO 

INF ftJi 

INF 052 

INF flJI 
INF 014 
INF njs 
TNF 016 
INF 017 
INF /»36 
INF 019 
INF 060 
INF out 
INF 062 



t 


C^MF«CPHtF(JFLi») 

SPHPaSPHIF rJ^LAP) 

CDX7BBC0fcLXZ(JFLAP) 

IDXZfliSDFLltZ(JPlAP) 

e 

e PlAP lOUNOAPV CO»«DlTinN facthpi 

c 

so !l«aCPHF*CALP*COXZH«8AtF*SOkZB 
avaaiPMPaeALF 

aUBSALP*CDFZB«ePHP*CA(.P*80XZ0 
GO TO SO 

e 

e »IN6 SOUnOARY condition factors 

e 

«e rvr«sphih*calf 

RhaePH]M*CALF 
RUbGALF 
so CONTINUE 

e 

C LOOP nvCR CHORDNlSe ROMS OF alNC VORTICES 

e 

00 ISO I|Wal|H|H 
AFTUaO, 

AFTVaO. 

AFTHaO, 

LFr(.ASTF(ISm) 

NAFTaNFSEC(ISN) 

XF(naft,CQ«0) go to 12S 
XF(NAFT,EQ.U go to t{2 
e 

e contribution of finite trailing legs in FLAPS AFT OF THIS ROHt 

e 

NAFTmrnAFTbI 
DO uo IASpIiNaFTM 

lASPalASAt 

XlaXMKRM(I|B«XAI) 

VlaYHKRH(ISN,US) 

ZIaZNiTRN(iSH,lAS) 

X2aXHKRH(IS«|lA8P) 

V2aYHKRH(II«,tASP) 

Z2bZHKRh(ISm,IaSP) 

CALL FLVF 

AFTUrAFTUtFU 

AFTVaAFTV^FV 

AFTwsAFTP^FN 

XtBX«KLPCISN,IAS) 

VisVNRLPdlPflAl) 

Z1>ZhKL»(ISh,IaS) 

X2aXRKLYnS"(lASP) 

VZrVNKLmMSniIASP) 

Z2flZNXLN(T8t«,tASP) 

CALL PLVF 
AFTUbAFTUbFU 
AFTVaAFTV-FV 
«FTNBAFTti«FN 

tio continue 

e 

e CONTRIBUTION OF SLhNinFInITC trailing legs in last aft flap 

e 

121 AXs.COELXZCLFI 
AZrIDFLKZ(LF) 

X1bXmXRN(ISH|NAFT) 

TtaYKKRM( lS*f naFT) 

ZtRZNRRN(1S«fNAFTI 

IF (NlOF.LCiOJ 60 TO 251 

e CORRECT POSITION OF NlNC TRAILING LEGS AT FLAP C0GF8 

00 25Z JDP1*NI0F 
RB!OF(JD) 

0Yb(YI-V(k)Jaa 2 
IF (OY.Lf.TnL) GO TO F5S 
252 CONTlNliF 
GO TP 251 
259 AXa«i,o 

aZbO.O 

231 CONTINUF 
C 

CALL SivF 


INF 0R3 
InF I)4i0 
IMF nas 

tnf ora 
INF 0«T 
INF oas 
INF 0A9 
INF OSO 
INF 091 
INF '»92 
INF 0S5 
INF OSfl 
TNP 059 
INF OSA 
INF 05T 
INF OSS 

INF 0S9 
INF OAO 
TNF OAt 
INF 0A2 
INF 041 
IMP 0A« 
INF OAS 
INF OAA 
INP OAT 
INF OAB 
INF 0A9 
INP 9T0 
INF OTI 
INF 0T2 
INF 073 
INF OTA 
INF 875 
INF OTA 
INF 077 
INF 07S 
INF 079 
INF oae 

IMF Oil 

INF 0S2 
INF OBS 
INF OBS 
INF OSS 
INF OSA 
INF 0B7 
INF OSB 
INF 0B9 
INF 090 
INF 091 
INF 092 
INF 093 
INF 09S 
INF 099 
INF 09A 
INF 097 
INF 09B 
INF 099 
INF too 
INF 101 
INF 102 
INF 105 

INF toa 

INF 109 
INF lOA 
INF 107 
INF lOS 
INF 109 

INF 110 
INF 111 
INF 112 
TNF 115 
INF llA 
INF 119 

INF llA 
INF 117 
INF liB 
TNF 119 


AFTUIAFTM.F" 

AFTV«AFTw-«v 
4FTl^•*rT«-^ " 
llBXHNLN(T8«rNAFT) 
v 1 bynxl“( 18 "»naFT) 

ZIbZ-xL>‘(I 8 '«iNAFT) 

IF (NlpF.LEfPl CO T" 2ttl 

C CORRECT position QA » 1 n 6 TRAILING LEGS AT FL*P E>'CF 8 

AXa*cnFLxZ(LF > 

AZa 80 ELXZ(LF) 
on 2 A 2 JDal/NlOF 
xalOF(JP) 

OYa(Vl«YlX))**2 
IF (DV.Lt.TOL) GO TO 2«5 

2A2 continue 

GO TO 2«1 
2US AXa«laO 
aZbO.O 

201 continue 
C 

CALL SIVF 
aftuaaftutFU 

AFTVbAFTVAPV 

AFTtaaAFTM^Fn 

129 CONTINUE 

e 

C LOOP OVER VORTICES In ThIS RDF 
C 

NCNCaNCniSa) 

DP lAO lCNBlfNC"C 
raJRASf+ICF 

c 

e CONTRIBUTION OF BOUND LEG 

c 

XlaXTLL(I) 

X2aXTLR(n 

YlaYTLLm 

YZafTLRU) 

ZlaZTLLm 

ZZaZTLRCI) 

CALL FLVF 
UTQTaFU 
VTOTaFV 
hToTaFH 

IF (HAFT.nE.O) CO TO ns 

C NO SURFACES behind THIS -ING 90“ • TRAILING LEGS IN NlNG PLANE 
C 

AXb» 1,0 

AZaO, 

CALL SIVF 
UTOTrUT0T*FU 
VTOTbVTOTaFV 
NTOTa-TOT^F* 

Xlax 2 

VlaY2 

ZIAZ2 

CALL SIVF 

UTpTaUTOT-FU 

vTOTaVTOTaFv 

►TOTaHTOT-F* 

Gn TO 15A 
C 

C THERE ARE flaps BfHlNO Thu ro», CpuFUTf INFLUENCE OF 

C FINITE trailing legs IM The nThG PLANF 

c 

ns xiaxTLRtn 
YlaYTLRtn 
ZlaZTLRin 
X?bx.xrh(TS*« 1 ) 

Y?av«xe-flS*»n 

Z 2 aZN«R-(IS-,i) 

CALL Fl VF 
UTOTauTpTAF u 
VTnTaVTOTfFV 
• ToTb^’TOT^E * 

XlaXTLI Cn 


INF 

120 

INF 

121 

INF 

122 

INF 

125 

INF 

120 

INF 

IZS 

INF 

12A 

TNF 

127 

INF 

12R 

INF 

129 

INF 

150 

INF 

U1 

INF 

152 

TNF 

1'5 

INF 

u 

INF 

1 5S 

INF 

t lA 

INF 

IIT 

INF 

ISB 

INF 

139 

INF 

|A0 

INF 

lAl 

INF 

142 

TNF 

141 

INF 

lAU 

INF 

145 

INF 

144 

INF 

107 

INF 

14R 

INF 

149 

INF 

ISO 

INF 

ISl 

INF 

152 

INF 

153 

iNf 

154 

INF 

155 

INF 

ISA 

INF 

157 

TNF 

ISS 

INF 

159 

INF 

lAO 

INF 

1A1 

INF 

1A2 

INF 

IaS 

INF 

lAA 

INF 

145 

INF 

lAA 

INF 

147 

TNF 

1AB 

INF 

169 

INF 

ITO 

INF 

171 

INF 

172 

INF 

173 

INF 

ITa 

INF 

175 

INF 

17A 

INF 

177 

INF 

ITR 

INF 

179 

INF 

180 

INF 

181 

INF 

182 

INF 

185 

INF 

184 

INF 

189 

INF 

lAA 

INF 

187 

INF 

188 

INF 

109 

INF 

190 

INF 

191 

TNF 

192 

INF 

193 

INF 

19a 

r-F 

199 

INF 

194 





vUYTLI fl) 

Zla7TLL(n 

X?«](pK| 

Y2«Y«t<L*n8-,l) 

Z2i2-KLK(IB«f 1) 

C*LL ^LVF 
U7n7iU1DT«P k) 

VTpTiVXnT»FV 

«TOT«kJTnT-F»* 

C 

C ADD Cn»<TRIHUT10^S FROM RAMUS AFT OF wlMfi 
C 

UTOT«UTnT*AFTU 

vtot«vtot*aftv 

WTOT*"TOT+AFTW 
ISA JJa(I«l)*MTQT*J 

FVHU«M«UTQt*#U*VTQT««V4K7QT«HW 
Iflfl CONTIMur 

tBASeaIBFSE*MCHC 
ISO CONTINUE 

IF(NFLAPS,eo.O) tiO Tq 100 

c 

C INFLUENCE OF FL*P VORTICES LOOP OVER FLAPS 

e 

DO ISO IFLalfNFLAPl 
NAFTaNFSEeF(XFL) 

LFLPalFLTNAFT 

e 

C LOOP OVER CHQROHISE ROMS ON THIS FLAP 

e 

MSFFpHSFflFL) 

CDXbCDELXZ(ZFL) 

IDXatDELXZ(IFL) 

NCFfiNCF(lFL) 

HlTsRSTARTdFL^ 

DO ITS I8MBl«HtFF 
AFTUaO, 

AFTVIO, 

AFThsO* 

I8A8SaH8T4(I|N«n*NCFFaI 
|F(NAFT«EQ.0) qo to ui 
IF iNAFT.EQ.n 60 TO lAt 

e 

c Thq flaps behind this one •• COMPUTE INfLUCNEE OF FINITE 
C TRAUIN6 legs Qn ThE FIRST ONE, 

e 

XlaXHKRF(ISW,iiIFL1 

TltTHXRFll8H,I»lFL) 

Zl8ZHKRF(ISHfl»IFL) 

XEaXWKftFnSM<2f IFL) 

VtaVWKRF(I8»*2«IFL) 

ZZaZMKRFMSMfZiIFL) 

CALL FlvF 

aftubaftutfu 

AFTVtAFTVfFV 

AFTMaAFTafFH 

XlaXHKLFdlNdilFL) 

YtaVNKLFnSPftilFU 
ZlaZMKLF(I8M,lf IFL) 

X2aX4KLFMSM,S«IFL) 

v2»YaKLF(I8"»2»IFL) 

Z2aZMFLF(I8«>2AlFl) 

CALL FlVF 

AFTUaAFTUvFU 

AFTViAFTV-FV 

AFTH«AFTa>FM 

C 

C CONTRIBUTION OF 8E « I-T NF I N I TE TPAlLlNS LFG$ IN L*8T FL*P AFT OF 

e this one 
C 

141 XlaXHX0F(IS««NAFTiIFL) 

VIiY-KRF(I8*i,naFTiIFl) 

ZlaZHKRFd8'i,NAFT»IFL) 

AXb-COELXZ{LFLP) 

AZaSOEL«ZfLFLPJ 

call SIVF 
AFTUFAFTU«FU 


INF 197 
INF 19A 
INF 199 
INF 209 
INF 201 
INF 202 

1N» 20S 
INF 204 
INF 20S 
INF 204 
INF 207 

INF 204 
INF 209 
INF 210 
INF 111 
TNF 212 
INF 21S 
INF 214 
INF 21S 
INF 214 
INF 217 
INF 218 
INF 219 
INF 220 
INF 221 
INF 222 
INF 22S 
INF 220 
INF 228 
INF 224 
INF 22T 
INF 226 
INF 229 
INF 230 
INE 2S1 

INF 282 
INF 284 
INF 234 
INF 238 
INF 234 
INF 23T 
INF 238 
INF 239 
INF 240 
INF 241 
TNF 242 
INF 243 
INF 244 
TNF 208 
INF 204 
INF 20? 
INF 208 
INF 209 
INF 280 
INF 281 
INF 252 
INF 253 
INF 250 
INF 255 
INF 286 
IMF 257 
INF 258 
INF 259 
INF 260 

INF 241 
INF 242 
INF 248 
INF 240 
TNF 245 
IMF 244 
INF 247 
INF 248 
INF 249 
INP 270 
IMF 271 
INF 272 
IMF 275 


AFTV4AFTv»A V 
AFT«Bif T*«4« 

X1*Xi«KLFCI9»'»MAM,IAL1 
VJaYbKlF tIS-»N|FT»pL' 

ZlBZHKLF(IS*»NAH,rFL) 
call SIVF 
A» TUbAFTUAFU 
aftvbaatv^fv 

AFTWiAFTwaFh 

c 

C tnoP OVER VORTICES IN This RO* 

C 

148 CONTINUE 

no 170 ICnb|,nC7F 

c 

C influence of bound Ll6 

c 

IB1RASS4ICH 

XlBXTLLCn 

YlBVTLLdl 

ZlBZTLLtn 

XZiXTLBd) 

TiBYTLRd) 

ZZaZTLRtl) 

call elvf 

UTOTbFU 

vTOTbFV 

•TOTbFw 

IFCnaFT,nE,0) 60 TO 165 

c 

C NO FLAPS behind this ONl, COMPUTE INFLUENCE HF SEmi.InFINITR 
e TRALING LEGS IN THE PLANE OF THIS FLAP, 

C 

AX8«C0X 
AZbSOX 
call SIVF 
IJTOTbUTOT*FU 
VTOTbVTOTaFV 
MTOTBNTOTtf « 

X1IIX2 

Y1BY2 

Z1RZ2 
CALL SIVF 
UTOTbUTOT-FU 
VTOTbVTOTbFV 
*TOTbntOT*FH 
GO TO 147 
C 

C THERE ARE FLAPS BEhIhd This ONE, COMPUTE The INFLUENCE OF 
C FINITE trailing legs INT THIS FLAP 
C 

145 XlaXTLRd) 

YlBYTLRm 

ZlaZTLRin 

X2PXHXRFnSH,l»lFL) 

Y2bY».xrF(ISh,|,IFL) 

Z2bZ*krF(IS-»1,1FL) 

call fivf 

UTOTbUTPT+FU 

VTOTbVTDT*FV 

*iTOTawTnT*FH 

xliXTLL rn 

YlaYTLLd) 

naZTLLtn 

X2tXta<LF(IS*»l»IFL> 

V2FV-(XLFfIS''il,IFU 

Z2sZhXlF(IS**1*IFL) 

CALL FLVF 
>i70TbmTPT»FU 

VTn7iVT07«f V 
fcT/lT«*THT*f • 

tJTOTaUTDTAAHu 
VTOTbUTOT + aF TV 

i-TOTB-TOT + AFT** 

147 jjBd-n*Mn«T».i 

F VN{JJ)iUTnT*MuTVTnT»RV*-TOT*R» 

170 Ct»TlvjE 


INF 274 
INF 275 

TNF 276 
TNF 277 
INF 274 
TNF 279 
IMF 260 
INF 

Inf 282 

IMF 2HJ 
INF inn 
INF 2«S 
INF ?Fb 
INF 297 
INF 260 
INF 289 
INF 290 
INF 291 
TNF 292 
INF 295 
INF 294 
INF 295 
INF 296 
INF 297 
INF 298 
INF 299 
INF 500 
INF 501 
INF 502 
INF 505 
INF 304 
INF 5n5 

TNF 506 
INF 507 
InF 509 
INF 509 
INF sm 
TNF 311 
INF 51? 
INF 315 
INF 51« 
INF 515 
INF 516 
TNF 517 
INF 516 
INF 519 
INF 320 
TNF 5?1 
INF 52? 
INF 525 
INF 5?4 
TNF 325 
INF 326 
INF 327 
INF 326 
TNF 329 
TNF 550 
INF 551 
INF 31? 

INF 555 
TNF 554 
TNF 315 
INF 556 
TNF 557 
INF 556 
TNF 519 
INF 590 
INF 541 
INF 34? 
INF U3 
7«F 5gu 
INF i«5 
INF 5u4 
TNF 5«T 

INF 1«R 
INF 349 
TNF 5S0 



175 

CUNTINUE 

TMF 

151 

190 

CONTINUe 

INP 

152 

foo 

continue 

INP 

55S 



INF 

55(1 


LOOP OVER flap CONTROL POINTS 

iNP 

355 



iNP 

154 


RETURN 

INP 

35? 


END 

TnP 

158 


tUMouTiNC ruvr 

amlhi eouationi po« riNtrr iinoth vonrex ftiahint 

INPLUINCI rUNCTlOMI, TAHI F«OM BOEING RfPONT D6>92«4 

• V flUBBCBT PP, ••••B t U I I/Q 


common BTATEmBnTB 
COMMON /TOLBNC/ TOt 

COMMON /PLVFR 6 /Xt»Vl,(|,X 2 »V 2 ,E 2 »XP,YP.rP«PU.FV.FM«Ai.*Z 

pnuunb ywri uj mwti • •*«»»• 


IPOtXPalt 

kTQ«Xl»Xl 

XPTaXPvXI 

ZPOlZP.Zl 

ZTO>Z2»Xl 

ZPT«ZP»Z2 

|PTaXPT*XPT«ZPTaZPT 

•PnixPo*xPo«ZFo«zPo 

6aZTO*XPO>XTO«ZPO 

B$QaB*B 

FUaO.O 

FV«0,0 

FMb 0«0 

•XGNal.l 

VPflayp*Yj 

vToav2»vt 

YPT»yP»V2 

eilQBXrQ«ZTQ*VTQ*VYO«ZTO«ZTO 

ciMiGiirdLia) 

VTLal.e 

IP (NVTLP,CT,0) VTlmO.O 

00 100 Kali2 

4«YTn*ZPO*ZTOi»YPO 

C>XTOtvPQ«VTo*i(PO 

RA0CLa8QRTU*A«B|O«C*e) 

IP (RPOCL.LP.TIILJ on TO 90 
R1S0«8P0^VP0*VPD 
P2SQaSPT4YPTtYPT 
Bia30RT(9190) 

R2a8QRT(R2IO) 

ff80afltSQ*R29Q 

C8THla(R80ttt90)/CZ«0«Cl*Bl) 
CaTH2a(R80aEL80)/(2,0*EL*R2) 
PRaP2*saRT( l,0aC8TH2*e8TH2) 
P*Ca81CN.(C8TMl«C8THaj/fRPaRinCL) 
PUaPlUA*PAC 
^VaPv4B*PAC*VTL 
pMBFw^CtpAC 
90 YToa»VTO 
YPOBYP^Yl 
VPTay»*Y2 
loo SI6Na*l,0 
^ RETURN 

C /1 {NO 


PLY 001 
PLY 001 
PLV 90) 
PLV 008 
PLV OOS 
PLV 904 
PLV 00? 
PLV OOR 
PLV 009 
PLV 010 
PLV Oil 
PLV 012 
PLV Oil 
PLV 9U 
PLV 019 
PLV 014 
PLV 01? 
PLV OIB 
PLV 019 
PLV 020 
PLV 021 
PLV 021 
PLV 02) 
PLV 029 
PLV 029 
PLV 024 
PLV 02? 
PLV 02B 
PLV 029 
PLV 0)4 
PLV 0)1 
PLV 0)2 
PLV 0)) 
PLV 0)0 
PLV 0)9 
PLV 9)4 
PLV 01? 
PLY 919 
PLY 0J9 
PLV Q«0 
PLV 0«1 
PLY 9«2 
ALV o«l 

PLY oaa 
PLY oa) 
PLV 094 
PLV 0«T 
PLY 008 
PLV ft«9 
PLY 050 
PLY 081 
PLV 052 
PLV 059 
PLY osa 
PLY 055 
PLY 059 
fLv nS7 


SUHannTlNp SlVF 

SJv 

091 


SlV 

i>02 

I‘PLUF*.CC FUNCTIONS , REFERC^XE •• RUBBERY RR, R9«H9 

SIV 

001 

applies FRUATinNS FOR SEMI •! NF INI Tt VORTEX PTLAmEnT 

Siv 

00« 


SIV 

005 

COmmom statements 

SIV 

994 

CTHMON /TOLRnC/ tol 

SIV 

09T 

COMMON /FLVFRG/Xl,Vl.Zl.X2fY2f22*XP»VP,ZP,F|i.PV|P«iAX|AZ 

SIV 

9A9 

COMMON /FTtV/ NoTLF 

atv 

909 

- 

siv 

019 

XX>KP«Il 

9IV 

on 

ZZaZP.n 

SIV 

ni2 

raAZ*xx»AX*ZZ 

SIV 

fill 

CUB««(aX*XXRAZ«ZZ) 

SIV 

91« 

XSPZ8RXX*xxy2Z*ZZ 

8IV 

915 

YYiYPaVl 

SIV 

014 

PUB9.9 

SIV 

91? 

FVaO.O 

SIV 

ms 

Fh«o,0 

91V 

019 

SIGNft.O 

MV 

029 

VTLal.O 

Siv 

021 

IP (NVTLF.CT.O) vtlro.o 

BIV 

022 

00 190 Mb1»2 

MV 

021 

DB»AZ*VY 

SIV 

02« 

PBAXvYY 

siv 

025 

RADCLbSORTCDaDaEaEaFfP) 

SIV 

024 

IP (RADCL.LE.TOLI go to 90 

9 !v 

92? 

BlQRaSDRTIYYRYVFXSPZll 

SIV 

928 

CSThTbCUP/BIOR 

SIV 

929 

SMLRb8TCR*SORT(1.0«CSTHTbCSTmT) 

MV 

010 

PACTb(CSThT«1.0)/(SMLR*R*DCL)*II6N 

SIV 

031 

FUaFU«0«FACT 

SIV 

032 

PVaPVAE*PACT*VTL 

SIV 

033 

pHBFBAPaPACT 

SIV 

01« 

YY^vPTYI 

SIV 

035 

SI6Na«t,e 

SIV 

034 

RETURN 

SIV 

93? 

END 

SIV 

938 


tUBBOUTlNe PHSCLCCfAVEl) Rh) 091 

€ RHO 002 

C THIS SUBROUTINE CALCULATES THE RIGHT HAND STOP OP RHS oOS 

C the EOUATIOSS POR horseshoe vortex strengths. RHS flOR 

C THp argument ExVEL is true IF EXTERNALLY iNnuCfH RHs o05 

C VElOCITUS arc to be INCLiiOEO In THE CALCULATION. bhs nr>6 

C RMS ooT 

logical CXVEl RHS nna 

C RHS f»n9 

C COMMON statements OHS OK 

c RHS on 

CnMHHN t INDEXF/ NERCc.NPLABS,IOPLAP(lO,2),NCP(lO),MSFnoi,Mr(10)» RMS fll? 

|HaTARTnn)f'‘END(JO)fNF9CCF(10) RH) 

COUHQN /FLPOAT/ SDELXZ(19)*C0ELXZ(KnYF(30.in).SPHIF( t01> RMS Oltt 

ICPMIF(IO) RHS PJS 

COMMON / -nCDAT/ Y(ie)»P9I«LEf30)»PSlMTEt50),8RHlM,CPHHi,TPHI*. rhs 019 

common /index/ MS«,MM,HTOT,NCHl(30),lMAX,NPsER(Sfl)»LA8TFno) RHS OIT 

COMMON /CROAT/ ALPHALf?501»XCR(250)rTCP(2501,ZCP(25")i RMS 018 

I Calphl{ 250 )»SALPMl( 250 ) rhs 019 

cdmmun /r 8 h>e/ ciR( 2 Sfi).utn 25 o)ivtn? 5 fti,KFn 2 b*n RMS 

COMMON /AT4ir/9INAtF»Cn91LP PH.3 

C RHS 02? 

C RIGHT HANO SIDE FUR -InC CI'NTROL PI'INTS RHS 021 

tP(EXVELl in u5 RHS 024 

RMS 025 
RHS 024 
PHS 027 


C 

c 

c 


lOpp Over HiKb control points for case rith no externally 

n-nucEn NFL^CITlFS 



c 


e 

c 

e 

c 

c 


e 

e 

c 

c 


e 

c 

e 

e 


8ACPsSIN«l^*CPh1m 

riO lift J«1 »H» 

ttO CIPfJ)« SAC* *CiLPHL(J) * CL^SALF*8ALPHt. (J) 

60 TO 

LOOP OVfP wl«6 CONTBOL PQI**T8 FOR CA8F •ITH f if Tf R n*|.i.V INDUCE?) 

vEL 0CITI€8 iNCLL'OfcO 

U5 CONTjNUt 

00 SO jal«P« 

SO ClR(J)«r(8I»^«lF*»EI(Jn*CPHtH ♦ vEI(J)*9PH!«)tCALPHL(J) 

1 ♦(Cp9*LF-uf I(jn*9Al.»HL(J) 

SS TP(^Fl.AP8,E0.0) RETURN 

RI6HT HA^jD side for F|.AP CONTROL POINTS (IF PRESENT) 

LOOP OVER FLAPS 

DO PO JFb1,nFLAP8 
CPH»CPM1F(JF^ 

8PHfl|PHlF(JF) 

CDXZaCrELXZ(JF) 

•0XZb80ELXZ(JF) 

CADXaCDXZ*CUSALF«lDXZ*8INAtF 

8ADXaC0XZ*81NALF*80XZ«CO9ALF 

DAaflADXaCPH 

QCaCPHACDXZ 

O0aCPH*90XZ 

MSaHSTABT(JF) 

MEaHCND(JF) 

IFtlXVEL) 60 To 7S 

LOOP OVER CONTROL POINTS ON FLAP WITHOUT EXTERNALLT INDUCED 
VCLOCITItl 

DO TO JaMSfHC 

TO CIR(J)aOA«CALPML(JWCADX*9ALPHL(J) 

60 to SO 

LOOP nvCR CONTROL POINTS ON THIS FLAP FOR CA|f NITH BXTERNALLT 
induced VELOCITIES INCLUDED 

T9 CONTINUE 

on so jaHSiHE 

CALaCALPHL(J) 

salbialphl(J) 

SO CIR(J)aDA*CALACADX«8ALaaCI(J)*(0C*CAL-SDXZ«8AL) 

1 ♦ VFI(J)*9PH*CAL • UEI(J)*(8AL«COX2aOO*CAL1 
SO CONTINUE 

RETURN 

END 


RHS 02B 
RH9 0?S 
RNS OSS 
RHS OSl 
RhS S 32 
RHS 033 
RH9 03a 
RHS 035 

RHS 0)# 
RHS QS7 
RMS (»3B 
RHS 03S 
RHS D«0 
RHS Ottl 
RHS 0R2 
RHS 0«3 
RHS 04« 
RHS 0R9 
RHS ORS 

RMS oar 
RHS ORB 

RHS oas 

RHS 050 
RHS 05t 
RHS 052 
RMS 053 
RMS 094 

RHS 059 
RHS OSS 
RHS eST 
RHS nss 
RHS 09R 
RHS 060 
RHS nst 
RHS 061 
RMS 06S 

RHS 06« 
RHS 069 
PH$ 066 
RHS 06T 
RHS 06B 
RHS 06R 
RHS 070 
RHS 871 
RHS 072 
RHS 073 
RHS 076 
RHS 079 
RH$ f>76 
RMS 077 
RHS 078 
RHS 07R 



A(m,K)KA(F,K) 

LiN 

(11 'J 


A(F,K>aT 

1. JN 

-MS 


TF(T,E(3,n,)(.U TO S 

1 IN 

0)6 


no 2 TaKPl,A 

LIN 

017 

2 

A(I,K)fA(t«K)/T 

LIN 

ms 


DO a JaKP! »N 

LIN 

019 


taA(H,j) 

Ll‘» 

020 


ArM,J)aA(Mf J) 

I.TN 

02! 


A(K«J)bT 

I.IN 

022 


lF(T,FC,e,)CO TO R 

LIN 

.023 


on 3 TbKPJ »N 

LIN 

029 

3 

A(I,J)aA(I*J)*A(ItO*T 

LIN 

025 

a 

CONTINUE 

LIN 

026 

5 

TF(ATK,K3,EQ.0,)IP(N>*0 

LlN 

02T 

6 

CONTINUE 

LI^ 

02R 


RETURN 

1 It 

02R 


END 

UN 

030 


SUBROUTINE SOLVE (BfA,N) 

SOL OOl 

DIMENSION B(n 

SOL 002 

MHENSION A(NfN) 

SOL OOl 

COMMON /l1n90L/IPI300> 

SOL 00« 

lF(w,ro,nCn TO 9 

SOL 005 

MMtBNal 

SOL 006 

DO 7 XBl »NMl 

SOL 1)07 

KRlRRAl 

SOL OOP 

M«IP(K) 

SOL OOR 

TiRCM) 

SOL 010 

B(H)aB(K) 

SOL OU 

B(K)bT 

SOL 01? 

DO 7 IaXPl»N 

SOL Oil 

S(I)aS(I)«A(I,K)*T 

SOL OIU 

DO B KBBl f NMl 

SOI. M5 

KMIbNmKS 

SOL 016 

KaKMlAt 

SOL M7 

B(K)bB(K)/A(K«K) 

SOL OIB 

Ta.B(K) 

SOL nlR 

no 6 iBlrKMl 

SOL 020 

BlDaBnuAll »K)*T 

SOL 021 

B(!)a6n)/A(l,l) 

SDL 022 

RETURN 

SOL 023 

END 

SOL 02 a 


SURRQiiTlNE LINCDS(NiA) LIN 001 

dimension A(n,n),1p(300) LIN 002 

COMHGN /LTnSOL/IP LIN 003 

IP(N)«1 LIN ooa 

00 6 Kal,N LIN 009 

IF(K,FQ,N)Cn Tn 5 LIN 006 

KPlaKAt LIN 007 

HIK LIN 006 

DO 1 UKP|,N LIN 009 

j continue LIN 010 

IP(«)aw Ll»* on 

TF(m,nf,R) IP{NJb«IF(n) LIN 012 

TaAfM^m i.IN 013 


SUHanUUNF TRL6 TRL 00! 

C TRl 002 

C CORRECT trailing LEf. POSITIONS AT FLAP JUNCTIONS TRL 001 

c TRL eoa 

COHMON / nNGDAT/ T(50),PSI-Lt(30).PSIhTF(5n),SPNi,,cpHik,TPHI»i TRU ijflS 

CONNON /l»jnex/ ►'S".“».,''TOT,NCwl(30J,tHAx,NFRFr,(30l,LASTA(30) thi. oo6 

COMMON /TlDAT/ xT£w(3f>),«TELC30>,XTi.B(25fl),vTLR(2S(M,ZTLR(250), TRL '’07 

1 XTLL(2^>0)»TTLL(2b0)»2TU(250) TRL OOR 

COMMON / TNOEXF/ NFOSr.# “FL APS» rOFl.AP( 1 (1,2) ,NCF(10) ,hSF( Irt ) ,MF { jfi) , TRl. "OR 

JmSTART (!M MonO) ,Nf SFDF MO) TRL M 0 

COMMON /huDAT-/ x-KR-(3r),3),YMt«a(i'i,3),ZNi<fi*nft,3),X*XI.-(H'»3)» T«L OU 

lV-HLMno»3)»Z'"<L*‘<30,3) TRL n!2 



COMMON /NDIFF/ NlOFf iDFdO) 

tbl 

TRL 

01 1 
Ola 

00 100 JalfNlOF 

TRL 

019 

NVatOP(J)«t 

TRL 

eib 

DO no xpiis 

TRL 

OIT 

ZMKLH(NV*X)iO,0 

TRL 

ots 

rMKRN(NVbl,K)BO,0 

TRL 

OIP 

CONTINUE 

TRL 

020 

CONTINUE 

TRL 

021 

RETURN 

TRL 

022 

END 

TRL 

021 


tutitouriNC LOAo(Cxvet) 

COMMON STiTCMCNTI 

COMMON /VORrOR/CX8L(l90)iCveL<250]»CZBL(290),CVTLU2S0)«CVTUt(no> 
\ $ CZTU( 250 )*cmil( 2 S 0 ) 

COMMON /IVCtl/UM|VM»«M 

COMMON /M 8 ZOC/ CIR( 290 )fUn( 290 )#vn( 29 Q)f mCKSSO) 

COMMON /bloat/ XBL(2S0)«veL(2S0)«ZBU2S0)fTMiir29e),BM(250) 

COMMON / NN6DAT/ V ( 10) « BIXMimO) tPStHTC (SO) • 8 PHI w.CMMIN, TMHlM 
COMMON /INOCI/ minimi,, MTOT<NCM](SO)«IMAI,NF 8ecnO)iLASTP(S9) 
common /TLOAT/ XTet(SO)fXTEL(30)fXTLR(29e)«VTLR(290)*ZTLR<299}» 

1 XTLL(29e)fVTLL(290)»ZTlL(250) 

COMMON /iUK/ •tNAL^fCnSALP 

COMMON / INnCXF/ NFRFr,,NFLAP9fIOFtAP(10,|),NeFM0),M8F(10)»MF(t0)» 

tMBTAiirno)»MENono),NF8e6F(ie) 

COMMON /FLPOAT/ IOeLXZ(10WCDELXZ(19),vr(3e«toiilPH!F(10)» 
lCMHlF(tO) 

COMMON /FTLDAT/ FTLXR(290)fFTlXL(290),FTLZR(l90)iFTL<U29e) 

COMMON /LDCDNI/ CONA(29fl)*CQNBR(290)»CONBL(29fi)«TeHp|TCMR 
COMMON /JETCIR/ JFLFM50)iLJrLP» CIRJU90) «CNJ(190) ,CAJM90) 

COMMON /frctl/ ntlf 

LOGICAL exvEL 

DlMCNltON VLM0)fVR(lfl)««R(t9)iNL(18), QAhFmROM* 

1 CAHFaR(SO)«GAM|un(SO) 

calculate force COmPOnCNTI in "Xi Y| ano «z OIRECTIQnI at 

BOUND leg midpoints On wING 


CP9AaCPHIH«8INALP 

spca«sphim*coialf 

CPCAsCn8ALF«CPHtN 
DO too J'4*1 |Hh 
TPSJmTPSHJm) 

CALL VPLSUM(XBL(JN)<VNLCJW),ZBL(JNn 
IP(,NOT,lXVEL) 60 TO 10 
UPtUPTUEKJx) 

VPaVP*VCI(J«) 

MP«WP*KtI (JM) 

10 FACTaCPNA(J«)*ClR(JM) 

eXBL(jH)*«FACTaCCPSA«4P*ePHtN*VP«8PHlM) 

CTBLrJw)aFACT*(8PCA«UP*SPHlii«rHP.9I^ALFl*TPSJ) 

CZSL(JM)tFACT*(VP*TP8JfCPCA«UP*CPNli.) 

100 continue 

TP (NFLAPS.fO.O) 60 TO 201 


BOUND lE 6 HtOPnlNTS Hm plaPS 


LOOP nvEP FLAPS 

nn 200 jf«1inflap 3 
C0K7aCnEL*Zf JPl 


Sl>xZ«snFL«/tJF) 

C8UMtCf'X2«C'’S4LP*S'’<T»SIMLF 
SSU-PC^AT^Sl^-ALF^SOXZtCOSALF 
CPnaCPMlMJF ) 

SPHsSPMlF ( JP ) 

CP8AFpCPh*8SUm 
SPCAFpSPhaCSUM 
CPCAFaCOU^^CPM 
MaiMSTART(JF) 
alt»«ENn(jF ) 

C 

c LOOP OvtR H'juwp Lt6 MIDPOINTS Os Tnis FLAP 

e 

DO IPO JCaMSfHf 
TP8JsTP»((JC) 

call veL8UM(XBL(JC)»VBL(JC)»ZIIL(JC)) 
ir(,NnT,fxvcu GO TO no 
UPaUPPUritJC) 

VPaVF*vritJC) 

«PBHP»anUC) 

e 

e PntATF U AND N TO LIE IN THIS FLAP COOPDlNATr IVSTEk 

e 

no MUBUp 

xaaMP 

UPaHU*CDXZ«NM*SDXZ 

NPaWM*CDXZTNUPSDXZ 

FACTbCIRCJCIpCONAUC) 

CXMU JC)aFACT*(wP*CPH«CP8*F-V»*SPM) 

CTML(JC)aFACT*(SPCAF*uPaSPHT(HPaS9UM)*TPSJ) 

CZ8L(JC)BFACr*(VP*TPSjTCPCAF»UPPCPH) 

IRQ continue 

200 COnTInuC 

IF (LJFLP,LC»0) go to 201 

C CORRECT PANEL LOAQlNQ FOR JET TURNING FDRCF 

DO 1P« JPaULJFLP 
JCajFLP(JF) 

CX§L(JC)aCXBL(jC) ♦ CAj(Jf) 

CZBLIJClaC/BLlJCl ♦ CNjfJF) 

IM CONTINUF 

201 CONTINUE 

IF (NTlF.LE.O) go TO 202 
e eliminate all trailing LE6 FORCES 

DO 191 jBlfMTOT 

CtTLL(J)»0.0 

CTTLRIJlaO.O 

CZTLL(J)pO.O 
CZTLR(J)p 0»0 
iti continue 

RETURN 

202 continue 

C 

e LOADS ON aIN6 TRAIlINQ LE6 POINTS 
C 

NCMCBNCMIfl) 

DO 90 ICNalfNCWC 

CALL WELSUMCFTLXRdCMliYTLRaCNlfPTLZPdCNn 
iFT.snT.EXVFL) 60 TO 20 
VPBVPtVH tlCM) 
xPBHPtMt T dCa) 

20 VR(!CN)BVP 
MRtICMlBi.P 

call VELS'JM(FTLXLdC»i>»YTLL(IC»)»FTLZLdC'*n 

lF(,NnT,tXVEL) CO TO SO 

VPbVP«VFI(ICm) 

mPbmP**! I ( 1C«) 

' SO VtdCMjBVP 
90 HLdCM)atiP 
C 

C LOOP nvER ».tNr. CMUPDMjst ROMS 

e 

TBASEbO 

DO 12ftft I8-«1»M8» 

NC»CaNf*Id8«) 

IFd5*'.fO,l) Cn tli 95 
nC*.hbnC»I (TS *-1 > 


LOO 059 
I.Of' 059 
LO« OSb 
LOD 09T 

l.nn nSS 
10'' 099 
LOn AbO 
LOO AM 

LO'' 0b2 
LOi' ObS 
LOD 0b« 
LOD ObS 
LQD 06b 
LOD ObT 
LUD a*b 

LOD ObP 
LOO OTO 
too OTl 
LHO 0T2 
\.•y^ 071 

I 00 OTU 
LOD 079 
LOD 07b 
LOD 077 
LOn 07B 
LDl) OTP 

LOD 080 
LOD OBI 
LOO 081 
LOD OBS 
LOD OBB 
LOD nP9 
LOf> 08b 
LOD 087 
LOD 088 
l.QD ARP 
LOD OPO 
LOD OPl 
LOD 0P2 
LOO OPS 

LOD op« 
LQD DP9 
LOD OPb 
LOD 0P7 
LOD OPR 
LOO DPP 
LOD too 
LOD m 
LOD 1A2 
LOD IDS 
LOD ie« 
LOD 105 
LOD lOb 
LOD IDT 
LOD lOR 

i.on 109 

LOD 110 
LOD 111 
LOD 112 
LOO ns 

UPD 1 1(1 

LO') 119 
LOn lib 
i.OD 117 
LOD HR 
LOD UP 
LPD 120 
LOD 121 

inn 122 

LOD i2S 
LOD t2« 
LOD 12S 
LOD 12b 
LOD 127 
LUn 12R 
LOD I2P 
LOD ISO 




00 60 J9IWU 


LOP 

151 


VR(J)«VL(J) 


LOP 

152 


60 HRCJ)awL(J) 


LOD 

15$ 


IF (NC*C.LF,nC«m) Gn Tr> 66 


LOO 

13« 


JLbNCmhaI 


lOP 

155 


on 65 J6JL»NC«C 


LOP 

156 


I6I8A8FSJ 


LOD 

157 


call VEL8'JM(FTLXRd)iVTLR<n#ETLZR(Tn 


LOO 

158 


IF (•NOT.EXVEL) CO TO 62 


LOD 

159 


VPiVF*VEI ( I ) 


LOP 

140 


HPrMF«mETM) 


too 

191 


62 VR(J)iVP 


LOO 

192 


65 wR(J)buP 


LOP 

19$ 


66 CONTINUE 


LOO 

144 


AO 70 JilfNCMC 


LOD 

195 


1RIBASE6J 


lod 

106 


CALL VELSUH(FTLXL<n»VTLL(niF7LZLd>) 


LOD 

197 


lF{,NOT,EXVei) 60 TO 68 


LOO 

198 


VFbVP^vEKI) 


LOO 

149 


PP»NP«|JEI(I) 


LOD 

ISO 


68 VL(J)RVP 


LOP 

151 


70 wL(J)6«P 


LOD 

182 

c 



LOP 

15S 


91 DELCAHaO.O 


LOO 

ISO 


DO 1100 ICrPUnChC 


LOD 

185 


IBI8ASE6ICH 


LOD 

186 


CIRRiClRd) 


LOO 

18? 


DUMArOELGAhaOiTKCIRR 


LOO 

188 


PACL60UHA*CnNBL(I) 


LOO 

159 


FACRs*DUHA*CQNBRd) 


LOO 

169 


CmL(n»FACL*(F'L(IC'<)»8INALF) 


LOO 

161 


CVTLR(I)«FACR*(HR(ICH)«SINALF) 


LOD 

162 


IF d8H,CQ.ll CYTLR(li*»CYTLUm 


LOO 

16$ 


CETUL(n»FACL*VL(lCN^ 


LOO 

169 


CZTLR(I1iFACR*VR(ICM) 


LOA 

165 


0CLGAHi0EL6AM»ciRR 


LOD 

166 

1100 CONTINUE 


LOD 

167 


GAM8UM(I9«i)ioeL6AM 


LOD 

166 

1200 IBiSeBlBASCANCwC 


LOD 

169 

C 



LOD 

ITO 

e 

trailing leg loads on FLARS •• LDOR OVER 

FLAPS 

LOD 

171 

c 



LOO 

172 


if(nflar8,eo*o) return 


LOO 

175 


00 800 IFL«1«^FLAR8 


LOD 

179 


lR(!0RLARdFL«2).6T,n GO TO 31t 


LOD 

178 

e 



LOD 

176 

c 

THIS 18 THE first flap AFT OF THE NING. 

COMPUTE gamma 

LOO 

17? 

c 

contributions RRQN MING VORTICES AHEAD 


LOO 

1?8 

e 



LOO 

179 


»'S»HSTAPT(1FL) 


LOD 

190 


MSFFiMSFdFL) 


LOO 

181 


nCFF«NCF(IFL) 


LOO 

182 


YlTRTFBVP(dlFL) 


LOD 

181 


DO 305 I84M«lfHSN 


LOD 

189 


J8WRTSXM 


LOO 

185 


IF (V(ISnN),LE.T8TRTF) CO TO 306 


LOD 

186 


305 continue 


LOO 

18? 


306 GAHFhRM )pCAH9un(J8H) 


LOP 

188 


DO 307 I8>^F«2»m6FF 


LOO 

109 




LO*' 

T9D 


6AHFHR(iat>.F}BGAHaUM(J8N) 


LOD 

191 


307 continue 


LOD 

192 


CO TO 390 


LOO 

19$ 

c 



LOD 

194 

c 

THtUt IJ * fL*P *Htm Of ■'“U ONE, COX'UTt «IK“* CO«T»1BUTION» 

LOD 

195 

c 

FRQN THE flap AHEAD 


LOO 

196 

e 



LOO 

19? 

e 

LOOP OVER CNOROKISF Rn-S ON THIS FLAP 


LOD 

198 

c 



LOO 

199 


112 continue 


LtiD 

200 


NCFFiNCFdFL) 


LOD 

201 


NSFFimsF(IFL) 


LPD 

202 


MjBMSTAPTdFl) 


1 nn 

203 


on 335 I|nFb1«h8FF 


LOO 

204 


GAMFN9d|iiFlPCAxFAR(IS*F) 


LOD 

205 


355 CONTINUE 


LOP 

206 


390 CONTINUE 


LOD 

207 

c 



LOD 

208 


c 

c 


CONPUTF THfc trailing LI-G LU*D8 HN This flap 


C<'xl«cr'Ei.xzaFL) 

SCJiZ«SOeL<ZMFLJ 
SALFPiSt'JALf •Cft*Z*C08ALF«8P>tZ 
C 

C PlCHT Ai«D LEFT VfLOCITUS FIRST ROW nr THJS FLAP 
C 

DO 39S IC"Pl»NCFF 

tpn*ic“ 

call VFLSl'*'(FTL*H(n»TTLR{niFTl2R(n) 

IFf.KDT.EKVEL) GO TO APS 

(ip«uptut I c n 
vppvptvnci) 

INPBWPtNF Id) 

IPS HRnC»)>«P*CDXZ^UP*SDxZ 
VRdC*»>PVP 

call vfL8u«(FTLXLd)irTLLfn»FTLZLn)) 

tF(,*iOT,EXVEL) GO TO SP6 
UPpUPALiEIfl) 

VP«VP»VfI(I) 

MPanp^hf Id) 

IPs wL(IC>^)pkP*CDXZ«UP*SD«Z 
59S VLTICRJPVP 
C 

C LOOP OVER CWOROk'ISE Rn-8 ON THIS FL*P •• LOAD CALCULATION 
C 

00 500 ISHPlfHSM 
ITso 

IF n8w,EO,l.AND,yTLR(H8),6F*0,0) IVPi 
IFCiaP.EQ.n GO TO dO) 

c 

C UPDATE RIGHT AND LEFT VELOCITIES 

e 

IT«HS*(I8“*I )*nCFF- 1 
pn «00 IC^Pl »NCFF 
VRdC*)PVL(IC«) 

HBIICHlPhUlCN) 

IPIIAICN 

CALL yCLSUH(FTl.XL(I)»VTLL(n»FTLEL(M> 
lFt,NOT,EXVtL) GO TO 899 
UPPUP*UETd) 

VPaVP*VFl(n 

wPpwp + fc'tl (t) 

599 wLdC«*)PWP*CDXE^UP*8DxZ 

900 VLfICH)BVP 

aoi continue 

c 

C LOOP OVER trailing LEG POINTS In tmIs Rnw 
C 

nf'LGMRaGAMFWRC I8P) 

IlBdSx*! )**<CFF*n3*1 
DO 450 IC“*» »NCFF 

ClRRpCTRd) 

DUna«0.75*CIRR 
F ACRP-tDELCNR+DUNAItCONSfid ) 

FACLb rPFLG*'RtPLjMA)*CnN8L(l) 

CYTlL t n«FACL*(hLnC«I»SALFP) 

CTTLRf nPFACR*('»R(lCP)*8ALAP) 

TF (Iv.tQ.i) CvTLRtUp-CYTLLm 
CZTLL(n«FACL*vLdC-> 

CZTLRd)«FACR*VRdC'‘) 

DEl6mR«DELG*<R*C1RB 
450 continue 

CAHFARdSW)RDFLCHH 

500 continue 

600 continue 

RETURN 

END 


j no 209 
LOD 2t0 
LOO 2U 
LO»' 212 
LOn 2H 
LOP 21 u 
LOP ?15 
LUP i\h 
LOD 217 
I OD ?1« 
LOP 219 
LOD 220 
l.OP P?.\ 
LOD 222 
LOO 22S 
LOP 22tt 
LOP 225 

inp 226 
LOD 227 
LOn 228 
LOD 229 
LOP 230 
I 01) 231 
LOP 212 
LOD 233 
LOP 234 
LOO 235 

LQP 236 
L'lP 23? 
LO" 23R 
l.OP 239 
LOD 240 
LOP 24) 

LOP 2«2 
LOD 2«1 

LOP ?«4 
U)P 245 

I OP 2U6 
LPP ?«7 
LOO 2<18 
LOP 249 
LUP 2SO 
LOP 251 
LOP 252 
LOO 2SS 
inn 254 
LOP 255 
LPP 256 
» UP 2S7 
1.1)0 256 
LOP 259 
lOO 260 

LOP 261 
LOO 262 
LOP 263 
LHP 264 
LOD 265 
LDP 266 
Lf)P 267 
LOO 268 
LOP 269 
LOP 270 
LC)P 271 

LOP 272 
LOP 273 

LOP 274 
LOD 275 
LOP 276 
LOP 277 
I OD 278 
inp 279 



lUftHO'msF LUiOCH 

CALCUL*Tt UPPER LO-fH 8uRF*Ct PRESSU»f COLFFTCIF'TS n*« 

MCH P4RCL *T ITS CONTROL PHT^iT tj8I»JC TmF RERMO 1 H.LI fllU*Tin**, 

DTMf»JSio»* tiC^ii(2bOJ»vCPU(?bni,pCP'i(250)»UCPl (2801 1 VCPL(?50 J 1 
1 pCPLr2S0)iCPU(2SO),CPL(250) 

t.06!c«L exvei 

CQHMO^J ypEFOUA/ SSPA>M,3»(fcF>PtPL*X'^f Z p 

C0M«0>' /INDEX/ PSP,-*,PTPT,NCKl(i0),lN*x,k!Fsir,CSD),LiSTM30 5 

CQNMdN /tPDAT/ iLPHAL(2S01«VCP(25l)).VCP(2801»ZrP(28m . 

I CALPML(Z80)»SA(.PHt.(2>)0) 

COMPOS X6U2SQl»yHU2801»lSU2S0)|tP|I(2901<8M(290) 

COPMflN / INOtXF/ NFflECiSFL*P8,I0FLAP(!0,2J,NCF(10)»HSFn0)»MFnO), 
iMSTAPT(10)»HeNDn01iNFSFCF(t0) 

COMMON /RSIDE/ ClP(28AlfUU(2SO)|VLt(2SOi«NEt(Z^O) 
coHMnN /atax/ s1na(.f,cu9alf 

COMMON /RVFLS/ UPfVPfWP 

COMMON /vnRFO»/CXBL(290)iCYBL(250)#CZ8L(2501,CYTLL(2501,CVTLP(250) 
t t CZTU(250)fC2TLR(2S0) 

COMMON /FLPOAT/ 9DELXZ(10)iCOElXZnO)fYF(9n,i(n«SPHlF(loi« 
tCPHIFdO) 

COMMON /lOCONS/ CnNA(2501,CONeftl250),CONBU?JO),TEMP,UMP 
COMMON /XYZCU/ NJETfNCYL(2)(XQ(2]>Y0(2)«ZD(F)»GAMVj(2l409(2)« 
t PH0(l3*CHU(I)>XCLP(2,28)«VCLP(2»2S),ZCI.P(2fISI,THFTA(f,2*iSr 
I taRC 2 . 28 ),AJCT( 2 , 2 Sl,BjeT(til 81 »DSFAcr( 2 » 28 ), 

1 UCl(2i25)« VCl(2«2S)» mCUZ^ZS), CFJiCFF 

COMMON /riDAT/ NSS(2)|SS(2iin*XBS(2,in,YS9(P»U)fZS5(2.in# 

1 r99(2,niia99(2in)iAss(2finiX8N(2,tn,v8N(2iin* 

I Z|N(2,in,xST(2*m>Y8T(2,UliZ8r(2f m<099(2iU) 

COMMON /JETCIP/ JFLP(l80iajFLP* CIPJ ( t90) «CNJ( 180) ,C AJ( 1 90 ) 

TOl format (1H1,Sx,7)huPPFP ANO LQmFR SURFACE PBES8UPE COEFFICIENTS AT 
1 CONTROL POtNTIf ALPmA • 

702 FORMAT (//|XtHJ««X8HXCP(Jlf RX8HYCF(J)(«XfeHZCP(J)f 7x?HUU,0X2HULr 
\ 8XSHCPU,TxjHrPLi8X5MOCP> 

70S format a9f3F10«a«3(Fit,9,F10,9)) 

commute continuous velocity COMPONENTS AT »INQ CONTROL POINTS 

RAOiSr. 2997799 
AIPHA*AS1N(9INALF3*RAD 
writf (s»701) alpha 

mR!TE (6*702) 

DO 20 JslfMW 

CAtt VELSDM (XCP(J)*YCP(J)*ZCP(J)) 

UCPU(JWuP 

UCPL(J)PUP 

VCPU(J^aVP 

VCPL(J)«VP 

HCPU(J)RNP 

ncplijWmp 

20 CONTINUE 

IF (NFLAP9.EQ«0) CO TO 29 

COMRUTF CONTINUOUS VELOCITY COMPONENTS AT Fl*P CONTROL POINTS 

00 29 JFal *NFLAPS 
HS»MSTART(JF) 

ME«MENO(JFJ 
no 21 JtMSiMC 

CALL VELIUM (XCP(Jl*VCF(J)iZCP(Jn 

UCPU(jiaUP 

UCPL (J)auP 

VCPU(J)aVP 

vCPL(J)aVP 

"CPU(J)aHP 

MCPLfJjaaP 

21 COnTInuF 
29 continue 
29 CONTlNitl 


COMPUTE PISCOnTINuUUS u»vEL0CITY At hING CONTROL POINTS 
OISCONTlNunus V. velocities NERLECTFn 
NOTF* 0UMa(«i*Pn**2/SREF 


c 

c 

c 

t 


c 

c 

c 


c 

c 

c 


c 

c 

c 

c 


IF (,Nf«T,FxvELl CO Tfi S2 

iNCU'Of JET CIMCULATIOS l-M HAPS 
on J5 J«l »IJFLP 

NjaJFLP(J) 

C\RtNJl»CIO(wJl»CIRJ(J) 

51 CONTINUE 

52 0 UM 8 J 57 ,R 1 5 b 706 /SPFF 
no 16 jal,M* 

CAvGa0.8*(C0 NBR( J IfCOnSL ( J) ) 

UPaCIB(J)*DUM/c*ve 
UCPU(J)aUCP"{J)*UP 
UCPL(J)»UCPUJ)TUP 
Sft continue 

IF (nFLFPS*EO, 61 CO Tr. J9 

COMPUTE DISCONTINUOUS VELUCITIFS AT FLAP CONTROL POINTS 

no IS JFal , nFLAPB 
MSa»iST*BT(JM 
MtaM£Nn(JFJ 
C0*ZaC0Fl*7(JF) 

SOXZbSDFLXZ(JF) 
no 31 jaMS,MF 

CAVG80»9a(C0nBR(J)fCOnBL( J)) 

UP«CIR(J)*OUm/CAVC 

UCPU( J) •uCPu( J)»UP*CI>Kl 

utPL( J)*UtPLlJ)FUPACDVl 
-CPU(jj«*CPU( J)FUP*90XZ 
•CPL(J)*"CPL ( J)*UP*S0*Z 

3l continue 
39 continuf 

3R continue 

iF (.NnT.exwCL) eo to ap 

INCLUDt EXTFUmLLY luDUCEO VfLOCITHS »T UCH C'lNTBnL Pnlf-Y 

OO «o jal,MTt»T 
UCPUf J)auCPuCJ)FUEI(J) 
uCPKJlRUCPUtJlFUEI (J) 

VCPUt jiaVCP'iCJ)YVei(J) 

VCPL( J)*VCPL( J)*VE1 (J) 

-CPU(J)aMCPU(J)FMlI(J> 

■CPL(J)aaCPL( JltMEI (J) 

DO continue 
(19 continue 

COMPUTE UPPER AND LOmER SURFACE PRESSURE COEFFICIENTS 
no 51 jal,MTDT 

UUm\ ,ft.2.0*(UCPU( JlACnSALF ♦ WCPU C J 1 *81NALF 1 ♦ (UCP'I ( J 1 **2 ) 

1 ♦ (VCPU(JJ**2) ♦ (aCPU(J)*a2) 

CPU(J)#1,0»UU 

ULal.0-2,0*(UCPL(Jl»Cn8ALF ♦ t.CPL(Jl*8INALF) ♦ (UCPl(J)*»2) 

1 ♦ (VCPtlJ)**81 ♦ (*CPL(J)«*2) 

CFL(J)al,0*UL 

UUsSDRT(UU) 

ULaSQQTdiL) 

0CP»CPL(J1*CPU(J) 

WRITE (6,765) J,XCP{Jl,YCR(J),ZCP(J),UU,llL*CPMf J)»CPL(J)*0CP 
91 continuf 

CPmrijtE wpRM*L FORCE COfFUCItNT On EACH PANEL OF *1^0 ANi) FLAPS 

InittaLTZE arhayS 

52 no 51 Jti,HTUT 
CXRL(J)»0,0 
CVML( J1«0,0 
CZBL(J)«0,6 

C''TLL(J)«0,n 

CTTLRtJla^.n 

CZYLL(J)ao,n 

53 C/7LR(Jl«'l.'’ 

OUMai,6/tTEMB»SBFF) 
no 55 jaliHTOT 

9PNLa(CONRL ( J ) ♦CCiNRH ( J 11 AnUM* S* ( J 1 

CZBL( JlFtCPL (Jl-CPU(jn*9PNl 

55 continue 


LCP 6T9 

LCP "TR 
LCf nPf' 
LCP ''91 
LCP 692 
LCP i‘95 
l.CP 69« 

l CP PS5 
LtP ft96 
LCP 09T 
LCP nsA 
LCP 060 
LCP OOft 
LCP 09! 
LCP rt92 
LCP 093 
LCP «9a 
l.CP o«5 
ic» B 96 
LCP 097 
LCP 098 
LCP n 99 
I CP 100 
LCP 101 
ICP 102 
LCP lOJ 
I CP Ift'i 
! CP lOS 
LCP 106 
LCP tor 
LCP 109 
I CP 109 
LCP no 
'.CP 111 
'.CP 112 

LCP in 

LCP llu 
LCP 118 
LCP 116 
LCP 117 

LCP ns 

LCP 119 
LCP 120 
LCP 12' 
LCP 122 
LCP 123 
LCP 

LCP IF8 
LCP 126 
LCP 127 
LCP 129 
LCP 129 
LCP 130 
LCP 111 
LCP 132 
l.CP 1 n 
l.CP 134 
I CP 1SS 
l.CP lib 
LCP 137 
ICP 138 
LCP *39 
LCP l«o 
LCP IDt 
ICP 142 
LCP l(M 
LCP l«« 
LCP )D8 
LCP l«b 
LCP 1«7 
LCP IU9 
LCP l«9 
LCP 150 
LCP 181 
LCP IS? 
LCP 18T 
LCP 15« 
I CP 158 


s 


c 


f ND 


LCe 156 
LC»» 1ST 
LCP 15« 


C 

c 

c 

c 

c 

c 

c 


e 

c 

c 

c 

c 

e 


SUBROUTINE FORCES FOR OOt 

FOR R02 

TNfS subroutine calculates the SPANxISE l0*0 OISTRIRuTIOnS ANO for 005 

The forces ANn HI-IHENTS' FRQ!^ ThE FORCES ACTING ON THf VORTfV FOB <^041 

filaments for 005 

FOR 006 

COMMON STATEMENTS FOR 007 

FOR OOS 

common /ATAXySINALFf COSA lF FOR OOR 

COMMON /BLOAT/ )(BL(29n),yBL(2S0),ZBL(250)irPSI(250l,8x(2S0) FOR 010 

COMMON / xnODAT/ Y(50) ,pSI»iLE( 50) rPSiHTg (501 ,sphlH|CPMlx,TFHlx FOR All 

COMMON /INDEX/ M8i»,Hta,MTOT,NC*n30),lMAx,NF8EG(30)#LA8TFC3O) FQR 0J2 

COMMON / TNfJExF/ NFR£G,NFLAP8#lDFLAP(tO,2),NCFnoi,M8FnM#MFaO)» P0» 0$5 

lHSTARTnO).M&Nnn01«NP8IGF(10) FOR Qla 

common /FLRDAT/ $D£LX7(10>,COELXZnoi,yF(SO,10),aPHlFflM, FOB 0J5 

ICPHIFMO) FOR 016 

COMMON /FTLOAI/ FTl«R( 250J ,FTLXL(25H ),FTLZRf 1501 »FTlZL( 250) FOR 017 

COMMON /REFOUA/ 3SPAN,8R£F ,REFL»XMf ZH FOR 018 

COMMON /CHORDS/ CHRDL*i(iO)»CR007F(10),CTIPFnO) FOR 010 

COMMON /vnRFuR/CXBLf250),CyBL(250)fCZBLf2501,CyTLL(250),CyTLfl(250) FOR 020 

1 » CZTLL(250),CZTLR(2SO) FQR 021 

COMMON /TUDAT/ XTEO(Srt),XT£L(10)»XTLR(250),VTLR(250),ZTLRI250), FOR 022 

1 XTLL(250)|VTLL<250)<ZTLL(2S(n FOR 025 

COMMON /FLAPLE/XMlLE(10).VitlLE(10).ZMlLEn0).8MPFLE(10) FOR flZB 

COMMON /PP8DAT/NFRE8H,NPRE3Fn0),ELAREA(250),XLf (JO) FOR 029 

common /FPnl/ NRRlNr,NjPNL*<JPML(JO) FOR 026 

FOR 027 

niMEHSinN statement for 02 B 

FOR 020 

dimension XC(20)»PRES(20) FOR 050 

FOR OJl 

format statements for 012 

FOR 055 

701 FnRHArnH0*l5X«59MiERnDVNAHlc LnAOlNC RESULTS FOR A| FHA ■fF6«2« FOR 05R 

1 5H DIG.) FOR 055 

702 FORMaT(//3'jX|20HREFER£nCE 0UANT!TIES/23X| 12hmInG SPAN* B,3K»aHAR£A FOR 056 

I .6X,6HLEnCTh/23x,3Fii,5) FOR 057 

703 F0RMAr(//?7X,27HSPiNnisE (.qao DI 8TR IPUT I0NS/22x3TH*« *** *«*«* LEFT FOR 058 

IMlNG PANEL **********) FOR 059 

70a FORM4T(«OX,5HLOCAL/19x7MSTATiriN,3X,7My/(B/2),3yiSHCMORD, C»2X, FOR 0«0 

M3HCNORM*C/(2*n)iRXf5HCNORM,Bx2HC"A) FOR ORl 

705 FORMATnBxl5fF]2,5iFif ,a,Ft2,5,2Fl2.u) FOR 0R2 

706 FnRHATr/22llO(lM*),U,6MRrGlQNfI2«5h FLAPfI2,1X,10(lH«n FOR oai 

707 FORmaT(///2U,UOhxINC AlHi.E F(?RCE AnO MOMENT COEFF I f IE NT S) FOB 040 

TOP FORMATf2BX,2UH(-ING COOBOTNATE STSTPH)) FOB (145 

TOR FgHMAT(l5X,3HCNl>,RX.3HCAM,9X,3HCL»'»9X,3HrDM,RX,5HCM'») FOB 04(1 

710 FORM4Tf9X,5M2,5) FQB 007 


■7M F0RMAT(///J lX.79HlNnivIf1U*L FLAP ^0OC6 AND uflMENT COEFFICIENTS AND/OR OUS 
1 LOCATIONS AT xHICm Forces ACT/24*,52H(FLAP CnOROTNATF STSTEmS • F FOR 0«9 
2lAP lies in XF,VF PLANt)/lx,nMREG10N FlaP,5X,ShCnF,7i,7mxFICnF), FOR 050 
55X,7MyF(CNF),7x»3MCAF,7X,7HYF(CAf ),7X,SHCyF,TX|7HXF(CYF),7X,jHCHF) FQR 05l 
712 FnHHATMX,la,15»8Fi2,5) FQR 052 

Til FnRM4T(///10X,52MCfjHPLET£ CONFIGURATION FORCE AND MOMENT COEFFKIC FOR 055 
1 nTS> for 05a 


714 FOMMATn 1 X, 2HCM, lox A , lOX.gHCL* l‘'» » 2Hcri, 1 ox,2HCM,(,* , j ohC'>/(CL*C FOR 455 


IL)) for 056 

715 F0RmaT(UX,6F12.5) for 057 

716 FGRHAT( 1 HI ,5UX«?2HPRE9$uRE D I STR ! BuT I DNS/ a 1 X , RHHEL T A P/QT FOR 05A 

717 FnRMAT(/5«.10riH*).lX,l5MLtFT x]nG " ANEI. , 1 X . 1 0 M H* )) FOR 05R 

716 FaflMiTf/5v,7My/f8/2l,Fii«HCMngfl, C) FO® 060 


719 FnRMAT(2M0,5*7X,4HX/c«.F9,5»9f 1O,5/30X»inF10,5J KIR 061 

720 FORMATIZII, IOhdELTa P/N« . F 9 , 5 » 9F 1 0 , S/ 10 X , 1 OF 1 n , B ) FOR 062 


C 


C 

C 

c 


c 

c 

c 


c 

c 

c 

c 


721 

F^PMATflM ) 


FOR 

061 

72? 

FnoMAT(/SX»10(JM*),lX,6‘*FFCirjN,I2,'j" FLAP,I?,lX»10nH*l) 

FOP 

064 

72! 

FOpHA T n 


POP 

065 

725 

format (/2U», 26HFHBCES OMITTEO FROM PiNf LS . 1 0T5/«6X , 1 0 1 5/«6X » 1 0T5 ) 

FOR 

066 




FOR 

067 

796 

FORMAT M«JX,UmcXBL»11V,4HCVBL»8XSmcvTlL»TX5mCyTlB* 


FHR 

064 

1 

10x,uhcZBL*8X5mcZTll»7X5mcZTLO > 


FOR 

069 


f.USTAHTS 


FQR 

070 




FOR 

071 


DATA BTpO/57, 2957795/ 


FOR 

072 




FOR 

073 


ntih£»i 


FOR 

074 

102 

spanb2.0*SSPAn 


FOR 

075 


SREFT'lfSRFf /(2 ,*SPAn) 


FOR 

07m 


ALFiASlNfSlNALFlABTUO 


FOR 

(177 


IF (NTlME.CT.n mHTTE (6,721) 


FOR 

075 


SPITE (b,T01) ALF 


FOR 

079 


IF (NTlME,GT,n xMITE (6,725) ( JPNL ( F ) , <■ 1 , M JPni ) 


FOR 

080 


mRITE(6,702) SPAK,8NEF ,BEFL 


FOR 

OHl 


IF (NTTHE.GT.n GO TO 99 


FOB 

052 




FOB 

OBJ 


OlSTRlRUTt TRAILING LEG FORCES BETWEEN ADJACENT -INC 

PANELS 

FOR 

084 




FOR 

085 

105 

TBASEIbO 


FOB 

086 


IBaSE2bnCh1 ( 1 ) 


FOR 

087 


hSwmbMsvs] 


FOR 

08rt 


00 90 I»1 ,m8mm 


FOR 

089 


WCxlRNCNjd) 


FQR 

090 


NCm2«ncsI ( i*n 


FOR 

OR] 


NTFRNCmI 


FQR 

092 


IF (nCm1,&t,nCx2) NTC»nCm2 


FOR 

09} 


OQ 91 J«1 ,NT£ 


FOR 

094 


JlalBASEI 


F UR 

095 


j24TBAS£26t; 


FOP 

096 


CySi(CTTLL(JJ )*CYT lR( J2) >/2,0 


FUR 

097 


CNS«(CZTLLf JDtCZTLRI J2) )/2,0 


FOR 

098 


CYTLL(J1 )*C'^8 


FOR 

099 


cyTLR(j2)Bcys 


FOR 

100 


CZTLLUDpCnS 


FOR 

101 


CZTlR(J2)«Cn3 


FOR 

\92 

91 

continue 


FOR 

103 


IBASEIbIBASEUnCmI 


FDR 

1 04 


19A8E24inA3E2»uCM2 


FQR 

105 

90 

CONTINUE 


FOR 

106 




FUR 

107 


DISTRIBUTE TRAILING LEG FORCES MET-een ADJACENT FLAP 

PANELS 

FOR 

tOR 


AND SET trailing leg FORCES EOUAL TQ z£Rn AT FLAP 

EDGES 

FOR 

109 




FOR 

no 


IF (nFlAPS.EO.O) go Tn QR 


FflB 

1 1 1 


on 92 M»i , nflapS 


FOR 

1 12 


MCf 1«NCF (N) 


FOR. 

113 


►Smm«mSF(n)«i 


FOR 

114 


J8 bmstABT(ni«i 


FOR 

1 IS 


IF (mShm^CT.O) go to 94 


FOR 

116 


no 98 Jil,*'CFl 


FUR 

117 


JBLBJRTJ 


FOB 

115 


C2TLR(JBL ’140,0 


FQB 

119 

OR 

CZTU(J8L)40,0 


Fflfl 

120 


GO TO 92 


FOB 

121 

9(1 

Cn»,TIMii£ 


FOB 

122 


on 97 in ,MS*H 


FOR 

12! 


on oj jn ,ncfi 


FQR 

I2U 


JPL«.TB*J 


FfiB 

125 


JBL24JRLTNCF1 


FOR 

126 


TF (r.GT.I) GH TO 95 


FOR 

12T 


CZTLL(JPl.)4f'.0 


FOR 

129 


CZTLR(J«L)*0,P 


FOR 

129 


CZTLR(JHL2)40,0 


FOR 

130 


TF CZT|.L( t0L2)4O,O 


FOR 

151 


CO TO Q6 


FQB 

152 

95 

IF (I.L^.mS-mJ GU T'l 96 


FUR 

153 


CZTlL{JRL2)Pt>,0 


FOR 

13U 

96 

CfJNTTNijE 


FOR 

135 


CyS4(CYTLL(JHL)*CyTLP(J0L2n/2,O 


FOB 

136 


r^StfCZlLl rJBL)TCZUBr.;«L?) >/?, I 


FOP 

137 


r.YULfJHI. )«CT5 


FQR 

138 


CY7lR(J«LP)4CYS 


FOB 

159 


CZTLLfJRL I4CNS 


FOB 

1 40 


(n 


e 

c 

e 

c 


e 

c 

e 


e 

e 

e 


c 

c 

c 


c 

c 

c 

•c 

e 


93 COMINUC 

•7 continue 
*» coNTXNur 
99 CONTTNUI 

If (NTjNF.Lt.n CO TO iPl 

HMIT RflRCEl ON ULECTED panels ACCOaOlNC TO JPNL ApOiV 

no }0« JalfNjPwL 
JBL>JPNL(sI] 

CVBL(JRl)90,0 
eVRLtJRLIaO.O 
CZRL(JBL)i0,0 
CTTLUJBLUP.O 
CVTL9(JBLT«0,0 
CZTLLfJRUBU.O 
10« CZTL9(JBI )I0,0 
iOl CONTINUE 

calculate mine loads 

mPITC (S«701) 

■PITCrfefTOM) 

C0NiS9CPTn/(2,*CPNiR) 

LOOP ovei) CHORDNISE ROtaB 

IBASE90 

00 1 Ir2»Ihax 

CYBiO. 

CNS90, 

CABiO.O 

VMnTa(V(T)«v(i.i))/(2,*8SPAN) 

N|TATRT«t 

CML0C9CHRnLN(NSTAT) 

LOOP nvCP AREA ELEMENTS IN RON 


nChWincmI (nsTAT) 

DP t NslfNCMH 
JJpIBASCaK 

CTaRCV8ACVbL(JJ)T0,S*ICTTLL(JJ)ACYTLfl(JJ)) 

CNSPCNSACERL(JJ)«0.5*(CZTLL(JJ)«CETLR(Jjn 

CABBCAStCVSLIJJ) 

2 CONTINUE 
TAbCpn/SPCJJ) 
cr9BTA*CTS 

CNBrCNBaTA 

CNORMaCNSACPHU^CYSASPHlM 

IRA9Cat8ASF4NCUN 

CNaCNURH*?,0*SPAN/CHLnC 
CA9fCAa*TA*2ad*3PA>i/CNLnC 
1 NRlTEtb^TOST NSTAT, VRnT,CHLnc»CNORH,CN ,CAS 

CALCULATE PLAP LOADS 

LOOP nvEP ALAPS 

TP(NALAP8,IOtfl) 60 TO 50 
on 20 Nil ,NFLAP 8 

"RITE (b» 70b) inFL*PtN,n,I0FL*PfN,2) 

►bite ( 6.70 «) 
nCFP«ncP(n) 

CPnIFFbCphIP(w) 

9PNIFF«8PH1F(NT 
CONB8RFATB/2«n 
jPMtMSF tN)4l 
c»nnT»CPnt>TFiN) 

PCHn»n«CHnnT»CTiPF(N) 

jSLPHENn(N) 

VOTRBObVTLL f JHL ) 

VlNBRniYF n 

F8PANlVlNRRn«VOTBRr) 

JBLPNSTAPT(N)»1 


FOR lUt 
FOP U2 
FOR 1R3 

Flip jbp 
FOR |U5 
POP l«b 
FOP laT 
PQR tap 
PPR 199 
POP ISO 
POR 151 
POR 152 
PO# <53 
POP 159 
POP 1S5 
POP 15b 
POP I5f 
POP I5B 
POR 159 

FOR IbO 
FOR Ibt 
POP 162 
POP 163 
POP 16« 
POP 165 
FOP 166 
POP 16? 
POP 166 
FOR 169 
FOR 170 
FOR ITI 
FUR 172 
POP 173 
POR 176 
POR 175 
FOP 176 
FOP 177 
POP 176 
FOP 179 
PUR ISO 
POR tSt 
POP 1S2 
FOP 103 
POP ISR 
POP 1B5 
FOP 1B6 
POP 167 
POP IBS 

FOP 169 
POP 190 
FOR 191 
FOP 192 
FOR 191 
POP 199 
POR 195 
POR 196 
POP 197 
PQR 196 
POR 199 
FfiQ 2on 
POR 201 
FOP 202 
FOP 203 
FOP 204 
FOR 205 
FOR 206 
FOR 207 
FOR 206 
FUR 209 
FOR 210 

FOB 2H 

FOR 212 
FOR 21$ 
FOR 2ltt 
FOR 215 
FOR 216 
FOR 217 


C 

C I'TiP nv^a CHnwr>*i6f »n*3 tv-^ twH Flap 

C 

n'’ 30 Ji2»lF« 

•^STATcT-l 

VttOT«(yr f I,^ J»vF{N§T*T,Nn/f2,*S8PAN) 
CNLnCPCR'»'^T*tYBrj)*S5PAN»tlNliR0)*0CH 1Rf)/P8PAN 
CYBao.o 
CN8ai),0 
CA5aO,n 
C 

C Ll’pp nvto ARE* tLi‘’tNTS 1‘ tmi$ pn*. 

C 

00 «ft Jal,NCFF 

.1PL9JNL4J 

CtSaCrs^cvMLlJflLl^ft.' (CVTLl (J0L )4 CtTlR(J6L)1 
C^'SaCNBACZPLlJPDTn'^tCZTLLfJPLJACMLRIJBLn 

CASaCAS * CFRlUBL) 
un r^NTj^uE 

TAaCnN/SKf jRu) 

CVSaTA*CYS 

C«3a74*CN8 

CNOPMiCNS*CRHTfF*CYS*SPHlFF 

CNaCNnB*«*2,eASR*N/CNLnC 
CAS8rAS*TA*2.o*SPAN/cHLnc 
3ft FPlTef6,705) NSTAT, YBOT,CHLnc,CNORF,CN ,CA8 

20 continue 

c 

C CALCULATE hlNC FCUCEI AND MOMENTS 
C 

50 CNaaft.O 
CA'-aO.O 
CMwaO.o 
on 6ft jal ,Mt> 

CFBL«»CX"L(J> 

CZ6L*aC?6LfJ) 

C7TLPHaCZTL»(J> 

CZTLL»aCZTLL<J> 

IF (J.LF.nC^MI)) CZTlP»80,0 
CAMaCAi»4CF6L« 

CNMaCN»*CZBL**CZTLR»4CZTLL» 

CMHaCMw«r FRL( J)*XM)tCZSLM«(ZBLtJ)«ZM)tCX6LMAtFTLXR(.n«XM)«cZTLPM 

1 ♦(FTl»L(J)-Xmj*cZtllm 

60 continue 

CN»a2,*CNM 

CAHa2,aCAM 

CHN#2,aCMM/PCFL 

CLMaCN»*COSALF«CAK*3iNALF 

rONaCNk.»3INALF«CAK*CDSALF 

•'RITE 16,707) 

-rite (6,706) 

•rite (6,709) 

*•6(71(6,710) Cnn,CAN,cL« ,CO»,CHk 
ClTaCLM 

roTacn* 

C“TaCMM 

c 

c f.ALCHLATf FLA® FORCE AND MQHtvTS 

IF(NFLAP8,tC,0) CO To Iftfl 

c 

C L'^OP nvfp FLAPS 

C 

mritf (6,rm 
pn 70 Nil , nFlAP 8 
CNFaO.ft 

CAPafl.o 

CYFaO.p 

CMFeo.fl 

C“*NFtO,0 

C^rNFap^o 

C»-ZAF art, c 
C“ZVFao,0 

►•CFFaNCPrN) 

••S a**sTART{N) 

“E aME»-r(N) 

COXZaCnti XZ(N) 
dDxZaSMtAZr*) 

X'^Lax-iLE (fc-l 


Kjo 21* 

Fr- 

A-w 22- 
F':w 221 

FCs 222 
FCM 223 
22u 
F'-.a >25 
FOR 226 
FOR 22T 
F'-O 22A 
H-a 229 

FUR 25 c 

FOB 23J 

FOR 232 
FOR 233 
FOR 239 
FOB 235 
A OR 236 
Apo 217 
rno 255 
Fpa 239 
fob 29** 
F'-.B 291 
rpp 292 
FOR 293 
FQB 299 
FQB 2«5 
FQB 2UN 
FOB 297 
FOP 296 
FOR 299 
AHQ 25ft 

FOR 25< 

FOP 262 

FUR 255 
FOB 259 
FOR >55 
FOR 256 
APR 257 

FUR 256 

FOP 259 
FOR 26ft 
FOR 261 
FOR 262 
A OR 263 
FOR 269 
FLIP 265 
FOR 266 
FUR 267 
FOR 26H 
FOR 269 
FOR 27ft 
FOP 271 
FOB 272 
FUR 275 
FOR 279 

FOR 275 

FOB 27h 
FUR 277 
FOB 276 
Ff.lR 279 
FUR 2Brt 
FOR 261 
FOP 2f2 
FOP 263 
FOR 269 
FOP 265 
FDR 266 
Fnp 287 
FOR 266 
FOP 269 
FOR 2Rft 
FOP 291 
FOP 292 
FOB 293 
FOB 290 
FUR 295 



cn 


K> 


Vo<L«V«Il. ^ (►il FHQ 

Z-'L«Z^ILF (N) rOQ 297 

C9HIFr«CPwl« (*JJ FOP ?q« 

SPhTFPbSPhiF(v^ mo 299 

3P80«39H1FF*S0xZ »09 56ft 


8PC0»SPH1FF«C0»Z 

TPSJLf«^4*JtS-PFLE(fJ>> 

C^8lLliCGSO«PFLF(N)) 
rFPn«C0S4LF*CnxZ-8lNALF*3CxZ 
S«POb9jnalf *cnxZtCn3»LF*srxz 
C 

C LHOP over V IBTTCES On ThI3 Flap 

c 

DO 80 jaMSi'^E 
CXBLfPCXflLf J) 

CYBLFpCYRKJ) 

CZRLFiCZRLfJ) 

CZTL9F«CZTL9(J) 

CZTll^oCZTLU J5 
CVTLOFpCVTUOf J> 

CVTLLFiC7TLL( J> 

Kaj»M94l 

IF (»(.CT.^CFF,0P.YF(^,^),^*E,0,0J GU TO 8l 
CZTLBFpO.O 
CYTLRFtO.O 
81 CONTINUE 

DXWBLOXSL ( 

nYWBL»YPL(J)»VtaL 

nZ«8L«?RL(J)*r»L 

DXbTLPoFYLXq(J)«XPL 

DVuTl BiY7LP(J)«Y"L 

DZ»iTLRaETLZB(Jl*20L 

DX-TLLoFTLXL(J1-XwL 

pYwTLL»YTLL(J)«Yii.L 

PZwTLL«FTLZL(J)-Z«L 

DXFBLoDYwBL*CDxZ«OZKeu*SDXZ 

DYFPLoOYwBL*CPMlFF*OX*(BL*8P8D*OZwBL«SPCD 

0XFTLOoDX*TLP*C0xZ-DZwTLR*3DXZ 

0YFTLP*ftYW7LR«CP>'lFF*nXoTL(**3P8D»0Z'-TLR*SPC0 

0XF7LL«OXwTLL*C0XZ-0ZwTLL*80XZ 

0YFTLL»r>V-TLL«CPHlFF + DX*7LL*8PSr'*02*TLLPSPC0 

C»<F8LaCZBLF«CPMlFF4CYBLF*8PHlFF 

CYFBL9CYRLF*CPhIFF.CZRLF*SPh1FF 

CWFTLP»CZTLOF*CPHtFF+CY7LBF*3PMIFF 

C7FTLRiCYTL0F*cPHlFF«CZTLPF«SPHIFF 

CWFTLL«CZYLLF*CPmIFF4CY7LLF#3PHIFF 

cyftllocvtllf*cpm!ff«cztlif*sphiff 

CAFiCAF<>CXHLF 

CNFaC^F+CNFRL+C^F7LP7C»‘FTLL 

CYFicyf*CYF0L*CYFTlP*CYFTLL 

C^'XnF«C‘'XNF*0TFPL*CnFHL4OYFTLO*CnFTLR^DYFTLL*C^F7LL 

CMYNF■CPYNF♦DXFRL*C''F3L♦0XF7LP*C^<F7LR♦DXF7LL*C^FTLL 

C“Z*FaCMZAF+DYFBL*C«BLF 

CH2YF«CmZYF*OXF8L*CYFBl+OxF 7LP*CVFTLR*DXFTUL*CYF7LL 
CHF«C«F»(XBL(J)»XM)*(cZBLF*C0XZ-CX6LF*8nxZ)-rZBL(Jl-ZPl 
I *(CZBLF*SnxZ«CX8LF«CDXZ) 

C»‘F»C‘*F + (F7LXP(J)-Xm)*cZTLRF*COXZ-(F7lZR(J 1*ZM3«CZTI RF.soxZ 
C“F«C«F*(F7LXL(J)-XH)*CZTUF*C0XZ-(FTLZLf J1-ZM)*C77LLF»SDXZ 
80 CnwTI^iUF 

C^FF■CNF♦CPMIFF•CVF•8PMIFF 

CLFBC^FF*CAPO«CAF«3APn 

CnFHCNFF*SFPD«CAF*C*PO 

XFCMFI999.999 

YFC>4Fa9Q9,999 

VFCAF0999.999 

XFCYFa999,999 

IF (C>iF,*Jt ,0,01 XFC'<F«C»'Y^F/C»<F 
IF (C*JF,NF,0,0> YFCNF■C“X^'F/C^F 
IF (C*F,^F,0,0) YFCAF«CmZ*F/CAF 
IF ^CYF,f.6,0,01 XFCYFiCMZYF/CYF 
C«FiC9F*(XFCNF.yfCmF *7P3ILEJ«CP81LE/RCFL 
CHFir**F/RFFL 

»RITf (6#T12) 10rLAP(N,n,I0FL*P<*<»2),C9F,XFCwF,YFCVF,C*F,TFC*F, 

1CYF,xFCVF,CHF 
CLT«CLT*2,*CLF 
CD7»C07*2,*C0F 
C»'7»C»'7*2,.C*‘F 
70 CON7r»*ut 


FOR 501 
FOR 302 
FOR 305 
FOR 500 
FOR 505 
FOP 506 
FOB 507 
FOR 508 
FOR 509 

FOR 516 
FOR 511 
FOR 512 
FOR 511 
FOR 519 
FOR 515 
FOR 516 
FOR 517 
FOR 518 
FOR 519 
FOR 520 
FOR 521 
FOR 522 
FOR 521 
FOR 520 
FOR 525 
FOR 526 
FOR 527 
FOR 528 
FUR 529 
FOR 130 
FOR 551 
FOR 532 
FOR 555 
FOR 550 
FOR 555 
FOR 556 
FOR 557 
FOR 558 
FUR 559 
FOR 500 
FOR 3R1 
FOR 592 
FOR 595 
FOR 590 
FUR 595 
FOR 596 
FOR 597 
FOR 598 
FUR 599 
FOR 150 
FOR 551 
FOR 352 
FOR 551 
FOR 559 
FOR 355 
FOP 5S6 
FOR 557 
FOR 55B 

FOR 559 
FOR 560 
FOR 561 
FOR 562 
FOR 365 
FUR 569 
FM9 565 
FOR 566 
FOR 167 
FOR 568 
FOR 369 
FOR 170 
FPO 571 
Ff»R 57? 
FOB 373 


c FOP 57a 

C C*LCUL4Tt C.O*«PLtTf Cn^FICURATin^i FORCES i^D “nMptKTS FOP 575 

C Fhq j7ft 

loft *RlTEt6»7l51 fur J77 

-PIYf f6,76B) for 37B 

xpjtf (h»7i«) rnp 579 

C^T»CLY*cn84LF*CDT*siMiLF »mq 

C*TfCDT*COSALF.CLT*9liw*LF FOP 5Bl 

CDrL9«0,0 for 3B5 

IF fCLT,NE,0,ft) C0CL3 «C''T/CCUT*ClT) FQR 5«2 

*B17F(6,7151 C*<T,CaT,CLT,C07,C«T»CDCLS FOR 589 

IF (».PR1*.7,LE,1 > GO Tn 505 »0R 585 

Tf (K'7TME,G7,n GO Tq 505 FOR 3B»* 

C •••** ftERUC ••*** t*****a««*FPR 187 

797 FORMA7 CIN ) AFIJR 5«B 

798 FUBMA7 ( 1 Ml , 1 0X»27 mSummARY OF FORCE C0«PONE'«T3 1 *FOB 5B9 

799 format M5»5X,iPE12, 9, 2{3X, 1212.91) *F(1R 590 

►bite 16,798) *^OR 391 

mRITE (6,797) *Fna 59? 

*RJTE f6,706) *FOO 3P3 

DO 500 J*l *PUP jQjl 

-BTTE (6,799) J»CXBL(.n»CYBL(J)iCYTLL(J),CYTLR(J>, bFOB 595 

1 CZBL(J)iCZTLL(J),CZTLR(J) *FOR 596 

500 coNTiRup ^mR 597 

IF (»<FL*P8,LE,ft) CO TO 505 *FUR 198 

00 501 Ni1,mFLAP8 *FQR 599 

mPITE (6,797) *F0R 900 

J5bH3Tirt(w) *F(IR «fti 

JtiMpwo(^) f *FiiR o02 

no 502 JaJStJE «FQ9 aft! 

-PlTp (6,799) J,CXBL(J),CYBL(J),CYTLL(J),CYTLB(J), *F0R 9ftU 

1 CZ8t(J)»CZTLL(J),CZTLPU> *F0P 905 

502 CnvTTRUF *F«iR uftb 

501 CORTIRUt *FUR ttP7 

505 continue *F(1R 9ft8 

C DpBUC ***** «****• ft •* *F0R 909 

C FOR «lft 

C calculate pressure OISTRIRUTIOnS fop all 

C FOR 912 

IMEADrO fob 915 

IF (NTlMp,6Y,l) return for UU 

C FOR 915 

C >*l^G PRESSURE DISTRIBUTION FUR 916 

6 FOR 917 

IF (NPRES»,E0,01 cn Tn 500 for 918 

•■PITE (6,716) FOP Ul9 

IHpADal FOB 020 

mRJTE (6,717) FOR 92) 

WRITE (6,718) FOR u22 

C FUR 9?1 

C LOOP OVER CMURDWISE Rn»8 FOR o2u 

C Fim u25 

T8A8ER0 FMR o26 

DCi 200 Ia?,lMiy roR o27 

1mbI« 1 FijR u29 

Y8nT»(vr M*Y( rM))/(2,ft*8SPA».) for u2r 

Chloc«CmROL •'(IM) FUR U5ft 

YLEf*(YLE(n*XLKlH))/2,o FOR 911 

NC*w»NC*I n**) rnp 032 

on 2in K«i,»,C"w FOR 935 

JJ«I8«SE*K FUR 059 

xCCn«(XLEF-«6L(JJ))/CMi nc FpR 015 

CNSa(!ZBL(JJ)tCZTLP(JJ)*CZTLI.(JJ) FPR o56 

CYS«CYHL(JJ)*CVTlB(JJ>*CYTLL(JJ1 for 057 

C^ORM•C*■S•CPHl »*CY8*8PMr * FPR u58 

PRe8(X)«rNfJRM*sREA/euREA( JJ) for 0 59 

210 continue for 00ft 

»RITF (6,719) YPUT,CHLtiC, ( XC(J) , J»1 ,NCw«) FOR 091 

WRITE (6,72ft) (PRtS(J),J«l ,NC*M) FOP 992 

•RITE (6,721) for 005 

1 RASE « T Bi St + nC F(>R uoo 

2ftft continue FflR 9UB 

C FOR 096 

C FLAP PRESSURE nlSTRlB.iTIPNS FOR ouT 

c FOR 098 

Iftft IF (NFLAPS,tO,0) cn Tn 150 FOP 099 

FOR oSO 
FOR 951 


C 

C 


L‘«PP nvtR Flaws 



on lift 

Jif (n»be#FC''),| 0 , 0 ) en Tn 3 Vb 
jp (THCiO.FQi 1 1 6 ^ To 320 

tHEADH 

S 20 X»ITf <k, 72 l) 10 fl*P<N, 
mKITC <*»T 19 ) 

NCFF«NCr(iwJ 
FSCFFBNCFF 
no 321 JbIi'^CFF 
rjtj 

321 XC(Ji«(f J- 0 . 75 J/FNCFF 
JFHtM 9 F(kWl 
FSPI*(iVFtlf'<)«VF(IF«i >0 
VtNNHOlYPM **<)/F 3 FA*J 
CROQTiCBOOTPCNl 
PCMniiniClinoT»CT|F^ (NJ 

CPFiCFM]F(N) 

t^Fi|PHlF(».) 

e 

c ■ ' lOnP OVIP C»^QBD"tSE pn «8 

e 

pn ISO Ia 2 «IFM 

ySOTaC tVF( I iN)«YF( I h,n) )/ 2 « 0 }/ 8 SPAM 
VFa«VP 0 T«S| 2 *N/F|P*s.Vl». 8 P 0 
C^^LnCPCPnOTttFI *OCHUPP 
on sun XlliNCFF 

C 4 SaCC 8 L(JBU*CZTLL( JBLltCZTLP(JBL) 
C>8»CV8UUBL)tCVTLL(JBLUCVTL»(JBL) 
C*^OPM«C^ 8 *CPF+cy#*IFF 
PRES(KUCNQPH*|PEF/EttPCA(J 8 U 
300 continue 

pPITE (6,71B) VBOT,CHLOC.(«C(J)iJ*1#NCFF1 

*tfXH ( 4»7201 <PPEaCJIiJ»liNCFF) 

MPITE (P* 721 ) 

330 continue 
SIO CONTINUE 

390 CONTINUE 

IF (NJPNL.EO.O) RETUPN 
nTIhe«| 

6 fi TO 102 
END 


rOQ P 99 
POP U 93 
FOP asa 
FOR U$% 
POP a 9 » 
pop US7 

POP a $8 
POP «9P 
POP 

FOP a*i 
POP 082 
POP ttkS 
POP 080 
POP 089 
POP 088 
POP 087 
FOP 088 
FOP 08P 

POP 070 
POP 071 
FOP 072 
POP 073 
POP 470 
FOP 479 
POP 078 
POP «77 
FOP 478 
POP 078 
FOP 080 
POP OBI 

POP 082 
POP 083 
POP 080 
POP UBS 
POP 088 
POP OBT 
POP 088 
POP oBP 

POP 498 

FOP 091 
FOP 092 
POP 495 
POP 090 
POP 099 
POP 098 
POP 097 


lUPPQUTiNF VfL8UH(XX«YYiZ2) vEL OOt 

C vEt 002 

C 'CALCULATES VELOCITIES DUE TO V0PTICF9 AND THpio mAxE9 AT VEL 003 

C A PiiLOPoiNT (xx,yy» 2 z) vel noo 

C VEL 009 

C CONNfiN statements vel 008 

C vEL noT 

COMMON / nnGDAT/ Y(3O)|P8thUEr30)iPSlNTE(301i8BMi«,ePMIk.,TPMik vEL 008 

COMHpN /index/ mjo,h«,mtOT,nc«I(30),Imax,NPSFG(10),LA8TF(30) VEL 009 

CnMMQki /TLDAT/ XTER(30)»XTIL(30)#XTLP(2 SO),ytlP(290),ZTLBC290>, vel 010 

I XTLL(250)#YTLL(250).7TLL(250) vEL Oil 

COMMON / INOEXF/ NPREr,|MKAP8, jnFLAP(jo,2i,^.c7no),MaPnoi**'Pno)# vel oi2 

lH8TAPT(10)«''ENOU0>|NpSEGFnO1 vLL OtS 

COMMON /FLPOAT/ $PELX7n0),C0fcLXZnn),VF(j0,10>,9OHTPM0j, vfL olo 

icPHirnoi VEL ois 

common /fcPOlTN/ XMKR*.(30i31iY-XP-C3ft,3)»EMKPMnOi31,X'*KL*no,3), VEL 018 

lVMKiM(SO,3JiZ*FLMtlO,ll VEL 017 

COMMON /mKOATP/ XMXPPtSO.ZilOjYt-XPPCSniZ.lOi.EMKPPrSO.J.IO), VtL 018 

ijl iXMKLFtSO.EilOliYMKLPdOiZ.tOliZ^KLFtSniZ.lQl vEL 019 

COMMON /PVEl8/hP|VP»*p • vEL 020 


CPM-On /K VFPG/Fl 1^1.71 .X2»Y?»Z2#XP»VP»ZP»P0*PV,F*,AX,A7 
common /PSUt/ CIP(25 p)i'JE1(2SP1#vEI(25P>.«pT(250) 

COmho*' /TOLOnC/ TUl 

COMMON /mDIFF/ '•inF»10FflP) 

COMMON' /FocvEu/ nPrC 
COMMON /Ftiy/ NVTLP 

c 

xpbxx 

vPavv 

Z®tZZ 

HPaP.P 

vPbp^O 

vPaO.O 

TPASEoO 

NVTLFofI 

c 

IF {NFPC*CT,0) hETu»N 
C 

C iMPL'lfMCF L'F -T*iC vnoTICCS •• Lf‘OP '^VPP CNObO^TSE Pt'Mp 

C 

f)0 20P t8«»l »''8« 

MApTONFSECUSM) 

APrUoO. 

AFTViO, 

AFTwaO. 

IP(NAFT,EQ,OJ GO TO ISS 

IPfNAFT.EfJ.l) 60 TO 131 
C 

C influence up finite LENGTH haXE PIECE8 PEhinO THIS PpM 
C 

NAFTMaNAFTal 
9^ 130 USaliMAFTH 

XlaYNMOWdS-ftAS) 

yiaVMKRMriS«»IA8) 

ZlaZMXP«.nSM»iA|) 
lASPalAS^l 
X2aXHKR»<nSi^f lASP) 

N2aYWKR«ns*i!ASP) 

Z2aZMKRK(is>-iIASP} 

CALL Flvf 
AFTUbAFTI)^FU 
APTVaAFTV^FV 
AFTWbAPTv*F> 

X1bXmml’mII5*»1AS) 

VUVMKLM(IS'*»tA8) 

ZtaZMKLMdSMf IAS) 

x2BXNKLM(]8"f1A8P) 

v2aVMXL'*dS*#IASP) 

Z2oZnflm(T9-»USP) 

C*iL Flvf 
AFTUpAFTU«P1I 
aftvbaftv-fv 
aF7hbaFT^»F" 

130 rONTTNUE 

c 

C influence f.'F SEMI»)NPIN1TE trailing lfcs In l*ST aft Flap 

C 

131 CONTINUE 

I.FBLASTFtT8»> 

AXa-COfcLxZILF ) 

*ZaSOELXZILF ) 

XlBXMMRwrlS>««NAM) 

Y)OYmKPM(IS>^«NAFT) 

ZlBZMKPWrlSM(NaFT) 

IF (nIPF.lE.O) CO TO 231 

C COPRECT PnSlTlDN OF -ING TRAILING legs AT FlAF EDGES 

232 JB1 »NinF 
KBJDF ( J) 

IF (OY.LE.TOL) r,n Tu RJ 5 
232 CONTINUE 
G.'i TO 231 

239 Axt«l,o 

AZaP.n 

231 CHMinuF 

c 

CAUL STYF 
AF TUbAFTU^Fu 


VEL P21 
VEL 02? 
VFL 023 
vEl 02 o 
VEL 025 
vEL 028 
VtL 027 
VEL P28 
VEL 029 
VEL 030 
vEL 031 
VEL »32 
vEL P51 
VEL 0|4 
VEL 035 
VEL 038 

VEL 037 
vEl. 05P 

VFL MO 
v£| '‘un 
VFL 001 
VFL 042 
VFL 003 
VFL 044 
VEL 005 
vtL P4M 

vti. nor 
vEl 048 
VEL poo 
VEL 050 
vEL 091 
VlL C-S2 
vEl ‘'•53 
VEL 090 
VlL 059 
VEL 098 
VEL 057 
VEL 059 
VEL 059 
VEL 080 
VEL 081 
vEL 082 
vEl 001 
v£L 084 

VM. 089 

vel 086 

VEL 087 
VFL ONB 
VFI. 089 
vEl. »'7o 
VtL 071 
VFL 072 
VFL 073 
vEl ''7'j 
VEL 075 
VlL 07 n 
VFL 077 
VH 070 
VEL 070 

VEL 040 
w£i. OBi 

vEL P?2 
vEi, 003 
VtL 08 U 
VEL 0P5 
VEL 088 
VEL 087 
VEL <'00 
vH 0F4 
VEL 090 
VtL 091 
VFL 042 
VtL 09j 
vEL *'9u 
VEL 009 
VFL ‘'90 
VlL OPT 
VEL 098 



if TV«AFTV»FW 

iFTHaiFThvFw 

VlsVMK|.ft(18Hf'4iFT) 

ZlBZwKj.wdS-iNirn 
IF (NlDF.Lt,0) CO TO ?«! 

C COBBfCT POSItlOV OF wlf-G TPARImC UCCS iT FLi® t^Gf% 

iXs«CDE'LVZ(LF) 

*I«80Cl.*2aF) 
f>n 242 Jit»*-I0F 
«*IOF(J) 

OT«(Y|.V(K) )i*Z 
IF (OV,I.C,Tf)C) CP TO 2«5 
242 CQNTJMU6 
CO TO 241 
2(19 AXb»i,o 
iZaO.O 

241 COMTIMUE 

C 

C*u 8TVF 
iFTUaiFTu«F'.> 

iMVBiFTv + FV 
iFTviAFTM*FM 

iss continue 

c 

C LOOP OVER VURTICES iN THIS NING ChuPOmisE RON 

e 

NCNClNCNI(19«l) 

DO ISO IC*al*NC«C 

C 

C influence of bound les 

c 

IbIBASEtTCw 

xiixTurt) 

TUVILLd] 

ZiRZTLLd) 

x2«XTLRa) 

v2«vTLP(n 

Z2«ZTLB(n 

CALL FLVF 

CUpFU 

CVtFv 

CmbFw 

1F(N4FT,NE.0) go To 149 

c 

c NO Flaps behind this noh, compute the influence of infinite 
C trailing legs in NIN6 PLANE 
e 

AXB-l.O 

AZaO.O 

CALL 8IVF 

CUaCUTFU 

CV»CVtFv 

CMaCwTF»< 

X1aX2 

VJ«V2 

ZlaZZ 

CAIL SIVF 

CuaCU«FU 

CVbCV-FV 

C«aCk>«Fu 

Cn TO 147 
C 

C there are flaps BEhIno This RpH, COMPUTE Infl'iFnCE of 
e finite TRAILING LEGS fN «ING PLANE 


vel orr 

VEL ion 
vEL 1''1 
VEL 102 


VEL 


08 


VEL 

VtL 

VEL 

VEL 

VEL 


o« 

05 

06 

07 

08 


VEL 

vEi 

VEL 

VEL 

VEL 

VEL 

VEL 

VEL 

VEL 

VEL 

VEL 

vt*L 

VEL 

VEL 

VEL 

VEL 

VEL 

VEL 

VEL 

VEL 

VEL 

VEL 

VEL 

VEL 

VEL 

VEL 

VEL 

VEL 

VEL 

VEL 

VEL 

VEL 

VEL 

VEL 

VtL 

VEL 

VEL 

VEL 

VEL 

VtL 

VtL 

VEL 

VEL 

VEL 

VEL 

VEL 

VtL 

vEL 

VEL 

VEL 

VEL 

VEL 

VEL 

VEL 

VtL 


OR 

10 

11 

12 

11 

14 

19 

16 

17 

18 
IR 
120 
21 
.22 
21 

24 

25 

26 

27 

28 

2R 

50 

51 

32 

53 

54 

39 
36 
,17 
iS8 
5R 

40 

41 

42 
;«3 
144 
149 

146 

147 

148 
i4R 
90 
191 

52 
191 
i9a 
59 
96 
i57 
98 
19R 
160 
161 
16? 
161 


C 

149 XlBXTLBd) 
'MiVTLBin 
ZlaZTLRdl 

K2BX.«HBMnS^» 1 1 
V2BVHKRtaCT8»'i 1 ) 
Z2aZw((Rw( 18>« 1 1 
call FJ.VF 

CUaClIAFii 

CVbCvtFV 

C^bCh*F* 

XlaiTLLtn 


VEL 

VEL 

VtL 

VtL 

VEL 

vF.L 

VEL 

VEL 

VFL 

VEL 

VEL 

VtL 


.64 

69 
166 
167 
68 
6R 

70 

71 

72 
71 

ITU 

79 


VlaVTLLm 
ZlBZTi.Ltn 
X2«X-<t.*fI8-» 1 ^ 

Y2aT».KL*.{I8''»n 
Z2BZt.Kl »(ISw. 1 1 
CALL Flvf 
Cli»CU*FU 

CVbCV*FV 

C^arw»Fw 

fU«tU*AFTl.l 

CVbCV+AFTV 

C«SCH»AFT« 

147 vStClNdl 
IJP«MP«CU*V9 
vPbvp*cv*v8 

hPBMR«Ci«*VS 

190 CONTINUE 
200 IHASEaTRAStTNCNC 
C 

C INFL'JEnCE PF flap vORTlCtS •• Lf*&P >’VFR FLAP| 

c 

TF (ViFLAP8.E0.6l RETURm 
on 500 IFLal.NFLAP8 

NCFFRNCFdFL) 

M9FFaMSF(IFL) 

CDXZaCOELXZdFL) 

SDXZa8DELXZdFL> 

NAFTBNFSEGFfIFL) 
iBASEaHSTART ( IFL) 

C 

C lOPP OvtR CM0RP*I9t Boas PF VORTICES nw THIS FLAP 
C 

00 250 Isaal.MSFF 
AFTUiO.O 
AFTVbO.O 
AFTnbO.O 

IF(NAFT,EO,0) go to 212 
TF(NAFT,tQ,t) 6D TO 2lO 
C 

C influence of FINITE trailing LEGS FIRST FLAP AFT PF ThI8 ONE 
C 

XlaXNKRF(lS«dtlFL1 

YlBYKKRF(IsaililFL) 

ZlaZHKRFriSFrl.IFL) 

y2cYharF(1S«i2,IFL1 

y2BY«KpF(i8M«2.TFL) 

Z28ZNKRFd9M,2ilFL) 

CALL flvf 

AFTUiAFTUTFU 

AFTVaAFTviFV 

AFTNr4FT«*FV 

VlBXhKLFfTSN.l.IFL) 

YIBV1.WI.F (!»•* 1 ,1FLT 
ZlaZNKLFdSHildFL) 

V2BX-aLF(I8-r2,IFL) 

Y2tYV.FLFn8a»2. IFLl 
Z2BZaxLF(I8>»2*lFL) 

CALL Fl VF 
aftubaftu*fu 

AFTVsiFTv-F V 
AFTw»4FT**F- 
C 

C COnTRIBUTIPn UF StMl^INFIk-ITf TRAILING LEGS TN SECOND Flap 
C 

210 XUX-4RF(T.1-‘»NaFT,TFL1 
YIbYnXRF { rS*»NAF T» IFLl 
ZllZHXRFns«.,*JAFT.lFLJ 
nFbIFLanaft 
aXb-CPELxZ(nF) 

AZs30£L*ZtNF) 

f.ALL SIVF 
AFU'aif Tu»FU 
AFTVciFTVwFV 
AFTHbAF Th«F» 

XltXfcXtFf 13*»NAFT,tFL1 
vl«YH<LFd9*»SAFT »TFL> 

ZlaZwHLF f IS-i NAF T , iPlt 

C*« L SIVF 


Wtl. 176 
VF.L 177 
VtL 178 
VEL 179 
VEL ISn 
VEL 181 
VtL 182 
VEL 1 85 
VEL 184 
VEL 189 
VtL 186 
vfL 187 
VtL 188 
VEL |8R 
VEL IRO 
vEL IRl 
VtL IR? 
vEl 1R5 
VFL 194 
VE( 1R9 
VtL IRh 

VtL IRT 
VtL 1R8 
VEL IRR 
VEL 200 
VfL ?ni 
VtL 202 
vEl 205 
vf.L ROu 
VEL 209 
VEL 206 
VEL 207 
VEL 208 
VEL 20R 
VtL 210 
VEL 2lt 
VtL 212 
VEL 2M 
VEL 214 
VtL 219 
VEL 216 
VEL 217 
VFL 214 
VEL 21R 
VtL 220 
VEL 221 
VEL 222 
VEL 223 
vEL 224 
vEu 225 
VEL 226 
VEl. 227 
vEL 226 
VEL 22R 

VEL 230 
VtL 251 
VEl 232 
VEL 233 
VEL 254 
VtL 235 
VtL 256 
VFL 237 
vEL 216 
VEl. 23R 
VtL 240 
VEL 2«1 

VEL 242 
VEL 243 
vEL 2 ug 

VFL 24*> 

VEL 246 
VtL 247 
vEL ?4B 
VEl 24R 
vEl. 250 
vlL 291 
VEL 252 
VtL 253 





A^TUa&FTLl^FU 

*rTV»*FTV»fV 

c 

c LOO^ nV|R vnBTlCei IN THIS CHQRni»I 5 E RON 
C 

? 1 I CONTINUE 

II«IBA 8 e«aS»*l)*NcFF.l 

r>o no 
e 

C TNF^UCNCr OF SOUND LCft 
C 

TRINICN 

KlaXTUCn 

TlaVTlLd) 

ZlaZTLLfl) 

Ktavtuim 

ylaVTLRdJ 

ZZaZTlRd) 

C*LL Flvf 
CU aFu 
CVbFV 
CNaFN 

lF(NAFr,Nr.O) 60 TO lis 

e NO FI.AFI BEHIND' THIS ONE, COHFUTE INFLUENCE nF SEHI«lNFtNlTE 

e TBAILIN 6 UE 6 I tH ThE PLANE OF THIS FLAP 

C 

AXa-eDIZ 

AZaBDXE 

CALL IIVF 

CUbCU^FU 

CViCVTFV 

C^aCKAFN 

VlPKI 

VlaV) 

ZlaZI 
CALL SIVF 
CUaCU«FU 
CVaCV-FV 
CaaCaaFa 
60 TO ZU 

e 

C there arc FLAPI behind thu one, COHPuTE influence of 
e finite trailing legs in thu flap 
e 

IIA KtaXTLRd) 

TlaVTLRCn 

ZSaZTLRd) 

X 2 aXHKRF(l 6 a«lfIFL] 

VZaYNKRFflBoiliIFL) 

Z 2 aZHKRFdSa*l|IFU 

CALL flvf 

CUaCUAFU 

CVaCVTFV 

C«tCN»FN 

XlaXTLLCn 

YlBYTLLd) 

ZUZTLld) 

X 2 aVHKLFd 8 «,l«IFU 

Y 2 aYHKLF(I 8 N,l,IFL) 

Z 2 aZNKLFdl*»l,IFL} 

CALL flvf 
ChbCU-FU 
CVbCV«FV 
C"BCh«Fw 
CU aCU^AFTU 
CVaCV^AFTV 
CNaCaAAFTa 
2 U VSaClRd) 

URbUPtCUcVS 
VPbVP^CVbVB 
220 wPiwp*CM*V 8 
250 continue 
JOO CONTINUE 
NVTlFbO 

RETURN 

END 


vEl 

VCL 2SS 
VEL 25P 
vtL 25T 
VFL 258 
VEL 25R 
VEL 280 
VEL 281 
vCl 282 
VCL 28) 
VEL 288 
VCL 285 
VEL 288 
VEL 287 
VtL 288 
VCL 288 
VtL 270 
VEL 271 
VEL 272 
VCL 27) 
VEL 27« 
VEL 275 
VCL 278 
VCL 277 
VCL 278 
VCL 278 
VCL 260 
VCL 2B1 
vEL 282 
VCL 28) 
VCL 28A 
VCL 265 
VCL 2B8 
VCL 287 
VCL 28B 
VEL 28f 
VEL 280 
VEL 281 
VEL 282 
VCL 28) 
VCL 288 
VCL 285 
VCL 28* 
VEL 287 
VCL 28B 
vEL 28* 
VCL SOO 
VEL )01 
VEL )02 
VEL SO) 
VCL SO* 
VCL 105 
vEL )06 
VEL 507 
VCL 50B 
VCL )08 
VCL SIO 
VCL Jll 
VEL 312 
VEL 31) 
VEL )1« 
VCL 515 
VEL 318 
VEL 317 
VCL )ta 
VEL 318 
VEL 320 
VEL 321 
VCL 322 
VEL 323 
VEL 32« 
VEL 325 
VEL 528 
VEl 527 
VEL 32H 
VEL 528 
VEL 330 
VEL 331 


SUBROUTInF jet ( 


71 


1-f 1 


HSB VERSION, jet T 8 RfFftfStNTCi) HV A SFOIFS OF OUADRILATCFAL 
vnRTCi RINGS* LvIng on a ppESCRUCn path, 

FaRALLFL to hINC AND FLAP UPPER SURFACE 

ALL FULL' POINT CUOROInaTCS ARF INPUT IN ThF «IN6 SYSTCn AND 
TRAnSFORhEO TP THf EvClNE SVSTtH FOR CALCULATIONS 
JET CFNTCRLINt COhROINATCS ARE INPUT IN FNGJNF SYSTCh 
ALL OUTPUT IS IN THE viNG SYBTEh 

NCRCT a fi CORRECT FIELD POINT PnSITin»S 
NITH respect to VORTFi RINGI 
NCRCT B 1 DO NOT CORRECT FIELD POINT PDStTinNS 

NTIHC a 0 INPUT and PRINT INITIAL JET PARAHtTERI 

HTIMF ,Gt, 0 PRINT Jit PARAMFTIRB AND CALCULATE 

induced vclocitifs 

IF CFK a 1,0, PRINT JET PARAMETERS 

dA’O'JCCD VFL0CITIF8 INPUT) 
NTIHE ,LT, 0 CALCULATE INDUCCO VELOCITIES FROM 

PREVIOUSLY DESCRIBED JETS • NQ OUTPUT 
NVLP a NUMBER OF LATTICF FLEHENT CONTROL PQInTB 
AT NHICH NO JCT VCLOCITIPI ARF TO BC 
COMPUTED (NVLP.LF.IQO) 

CFK,6T,0,0 PRINT INPUT JET PARAMETERS AND 
nr UP NPTJ(>*«) ARRAY 

OPTIONAL OUTPUT ,,, 

JPRINT a ml MINIMUM OUTPUT 

jprInT 80 NO optional output 

JPRInT ■ t INDIVIDUAL JET INDUCED VFLnCITIFS 


DIHCNBION TITLC(B), PJCT(i),XP(250IiYPt2SOWIP{250). 

2 XPR(250),YPR(2S0)»ZPR(250),U(250),V(256),n(250)* 

) UP(250)*VP(250),bP(250)*CT(2) 


COMMON /XYZCL/ NjETfNCYL( 2 )»X 0 ( 2 ),YD( 2 ),Z 0 ( 2 ),GAMVJ( 2 ),DS( 2 ), 

1 RH 0 ( 2 ),CMU( 2 ).XCLR( 2 , 25 ),YCLR( 2 « 25 l«ZCLR( 2 f 25 ),THETAt 2 , 25 ), 

2 8 CLR( 2 , 25 )*AJCT( 2 * 25 ),BJETI 2 « 25 )*DSf ACT( 2 , 25 )# 

) UCL(?* 25 )» VCL( 2 i 25 )» aCLC 2 i 25 )» CFJ»CFK 

COMMON FCLDATF nsB( 2 ), 83 ( 2 * 11 ), XSS( 2 , in, VSS(?*in,ZSS( 2 *m* 

1 T9B(2,11)*B6S(2»in*A8S(2«in*XBN(2*ll)*YIN(2*ll)* 

2 78 '<(Z*in*RBT( 2 *n>*YtT( 2 ,in*Z 9 T( 2 »in * 085 ( 2 * ID 
COMMON /CORNER/ XCR9(iOfVCR0(tt)*ZCRq(«) 

COMMON /RTDAT/ NPTJ( 2 , 250 ), NCRCT 
COMMON /VLOAT/ NVLP,NVLdOl) 

COMMON /NFJCL/ NFJ,nFJNO) 

COMMON /RFFOUA/ 8 SPAn, 8 RFF,RFFL*YM,Zm 

700 FORMAT (flFlO, 5 ) 

701 FORMAT (1*15) 

702 format (SAlO) 

70) FORMAT n0X*6Al0) 

T0« format dMl*3x,20HlNPuT JET PARAMETERS //) 

705 format (6F1D.5,15) 

TO* format (// 5 X,« 8 HJLT InOUCCO VELOCITIES aq£ pHTTIfD on PANELS,,, * 

1 )0I5*8(/53X*101S)) 

707 FORMAT (1 H I , )> , SRH JC T PAHAMtlERS FUR TANQENT USB JCT //) 

TOR format f*X, 12 mi»«puT VALUES ) 

711 F 0 RmaT(// 2 h d),l*H) jtT PARAMETta 8 , 10 X* 5 HCT * TXIhRHO » 7 X 2 NXf)* 

1 BX 2 HY 0 , 8 X 2 - 70 , SxaHO(S), 5 XOhNCYL,iX 7 MCAMM A/ V / 23 X,*F 1 0 , u , I B , F 1 0 , tt/ 

2 Rx 5 MXCL, 7 x 3 HVCL,Tx)WICL,BA)HSCL,fcXSMTHETA,TX)HA, 8 *)MB 

3 *x*HD 8 FACT, 7 XtHP ) 

712 FfRMAT ()x, 3 Fio, 5 ,AFif|,«, 3 F 10 ,)> 

715 format (/ 5 XUHNje 7 * 2 XttMNVLP*lX 2 HNP, 2 x 5 hNCRCT, 2 X*HjPRlNT) 

7U FORMAT (15IP) 

715 format ( «XlHN, 7 x 2 H*K,Rx 2 HYi., 8 X 2 HZ- 5 X 3 HU/V,RX)MV/V,aX)HMVV) 

71 * format n 5 , 3 F 16 , 3 , 2 *,)nPFi?,u), 2 i 5 ) 

717 format (/n X, 2 ?HKligC coordinate SYSTEM) 

7 JR format f /?X , 2 SmvLLUC I TJ f S InDUCLD BY JtT,I 2 ,?ttN m JfT CDORUInATF 5 
lYST£M/tlXJHN, 7 XaHiP ,*X(IMyP ,*l«M 7 P » 5 x)mU/VRX JHV/VRX)H»/ V J 

719 FORMAT (// 5X, iSMSuRpAC^ COURDlNATt PiRAMfTFRS FOR JCT ,12, )X, 

1 ?aH(»ING CnORDTNATE SYSTEM) J 

720 format f/Bx 2 HYS* 6 X 2 hYS* 8 X?HZS,fcK 2 HS 5 ,«X 5 HTMFTl,SXlNA, 7 x|HH, 

1 RxjMXSt , 5 XJky 8 » , 5 x 4 h 7 Sn, 7 x)mx 8 t, 5 X 1 myst, 5 X 5 hZST, 5 x 3 hdSS) 

721 format f///)n«, iaMExPCiiTTfi'. TEwMiNATCn, io»rw !■> ns > 



722 FflRHiT (5JI»7F8, 5, ? (2 k, UH, J),f B, I ) 


PTa1,lijlS02h 

B40«lA0./OI 

(»-Tl“n 195,10#99T 

10 Rt*O(5,70n »<HF*0»Njf T»NVUP»^CHCT»JPRINT 

(eOP(S)J 9R0,9«8 
999 STOP IP 
990 cnwTI*JuE 

»JPBI'gT«JP9I‘<T 

WVLPZ«‘^Vl.P 

IP {NPRT»;T,6T, 1 ) NPBI»JT«1 
NAaNpRJkjT 
hPITC («i,70ai 
DO 9 Jal,»iMLA0 
PE*0f5,7P2) 717LE 
9 pRITF (6,701) TITLE 

INPUT INDIVIDUAL JET PARAMETERS 

nn u 

read (%,rOS) CT(J1,RM0(J), X0(J),VQ(J),ZQfj),DS(J1,NCVL(J) 

CMU(J)iCT(J) 

NCYRNCYL(J) 

IP (RHg(J).LC. 0,0) RHO(J)al,0 
DC n N«1,NC7 

read (5,700) *CLR(J,N),VCLR(J,»0,ECLR(J,N),AJ|T(J,N),UJET(J,n), 

I THeTA(J,N),OSPACT(J|N) 

H«OSPACT(J,N) 

08FacT(J,N)«m 

IP (DSPACTU,N),LE.O,0) OSPACT(J«N)tt,0 

11 CONTINUE 

Ajaa.0*AjeT(J,n*8JET(J,n 

DUMaSQRT(2,0*CMU( J)«aRCP/AJ*RHO(J) « i,Q) 

CAMVJ(J)«0,5*(1,0 ♦ OUP) • i.o 
U CONTINUE 

IP (nvlp.OT.O) read (5#7PI) (NVL ( J) , J«l , NVL pJ 

997 CONTINUE 

nPrinTina 

IP (NTIM|,CT,0) PRITI (6,707) 

IP (CPR.LF.O.O) 60 To 996 
PRJTE (6,708) 
nPRInTbO 
996 CONTlNUf 

SET UP TABLE OP JfeT CENTERLINE PARAHfTfRS 

no lu J«l,NJtT 

8CLR(J,l)a0,0 

NCYmNCYL(J) 

00 11 nb2,nCT 

|R ■ (VCLR(J,N)*XCLR(J,n«i))**2 * ( YCLR ( J, N) .vclRI J,n«1 ) 1 **2 ♦ 

I (ZCLR(J,n)-ZCLR(J,n«1))**2 
IS SCLR(J,N)i8QRT(SR) ♦ 8CLR(J,N«1) 

U CONTlNUf 

preliminary OUTPUT 

PRITC (6,711) 

PRITE (6,7|tt) NJET,NVLP,NP,NCRCT,MpRlNT 

on as Nt1,NJET 

nCy«ncvl(n) 

PJET(N}aa,0*(AjET(N,l) ♦ BJET(n,1)) 

pRITE (6, 7 in n,Cpu(N),Rhq(n),xQ(N),VQ(n),ZQ(n),08(n),nCY,6AmvJ(n) 

00 15 J»1 ,NCY 

p*a,o*(AjFT(N,j) * «JFT(»i,jn 

15 pRITt (6,71?) xClR(n,J),YCLP(n,J),ZCLR(^,J),8CLRCn,J),ThETA(n,J), 

I AJtT (N,J) ,HJET(H, J),OSP ACT(N,.n,0 

IP (NTTPE.fD.D) r.O To u5 

output SuRPaCE COURDInaTES of JET (CALC, IN JETCU 
nSin$S(n) 

-RITE (6,T1R) N 
-RITE (6,7?0) 


JET 

0T8 

JE» 

■ft'TO 

JET 

ftSft 

JFT 

oat 

JFT 

082 

JET 

085 

JET 

060 

JET 

085 

JET 

066 

JET 

OOT 

JET 

one 

JET 

089 

JET 

090 

JET 

091 

JET 

092 

JET 

095 

JET 

090 

JfT 

095 

JET 

096 

JET 

097 

JET 

098 

JET 

099 

JET 

100 

JET 

lOl 

JET 

102 

JET 

IM 

JtT 

100 

JET 

105 

JET 

106 

JfT 

107 

JET 

108 

JET 

109 

JCT 

no 

JtT 

lit 

JCT 

112 

JtT 

IIS 

JET 

no 

JET 

115 

JET 

116 

JET 

117 

JCT 

116 

JET 

119 

JtT 

120 

JET 

121 

JET 

122 

JET 

12S 

JtT 

129 

JET 

125 

JtT 

126 

JET 

127 

JtT 

126 

JtT 

129 

JET 

ISO 

JtT 

151 

JET 

152 

JtT 

ISS 

JtT 

ISO 

JET 

155 

JET 

156 

JET 

157 

JET 

158 

JtT 

159 

JET 

100 

JET 

101 

JET 

102 

JfT 

105 

JtT 

100 

JET 

105 

JET 

146 

JET 

107 

JFT 

106 

JET 

109 

JET 

150 

JET 

151 

JET 

152 

JET 

15) 

JET 

ISO 


rf. I A J« 1 , *■ P 

If *oiTF (6,7??) JtfS(N,J),VSSrN,J),2SS(N,j^,5S(»j,.i),TS5(N,J), 

1 *SS(».,J),M5fi(^,Jl,JSv(^,J),YSN(N,J),Z5;v(.•,J),X8T(w,J),vsT(N,J), 

? Z5T(N,j),nsS(^ ,J) 

05 CONTINUE 

IF (NVLP.r.T.O) pRITt(6,706) ( S VL ( J ) , J» 1 , K Vt.® ) 

IF (nTT-E.ED, 0 ) bFTiiBK 
Cn Tn 1BU 

191 NPRlsiTfl 

IP (NTImf^LT.-U NVLPtO 

19 II cnwTlNiiF 

IF (NTTMC ,(,F ,«1 ) nvl(nvlp*1)»nP*j 

C 

JF (CPk.GT.O.O) GO Tn U6 
DU 192 J*1 ,NP 
UP(J)*P,0 
VP(J)«0,0 

192 "P(J)»0,0 

c 

C beginning of loop nvLR ALL JLT5 

B6 DU <iO M>1 ,nJET 

IF (OS(m) .LE.P.O GU to 90 

NSrNS5(m) 

nCLRNCYL(H) 

NFJlsNpJ^l 

c 

C transform surface coordinates to jet system 

c 

ja*» 

on 6? I»1,NS 
x8S(J*T)iyUU)«XSS(J,l) 

V3N(j,l)axn(J).XSN(j,i) 

YST(J,nRYO(J)*XST(J,I) 

Y8S(J,n«Y8S(J,I)>Y0(J) 

Y8N(J,naV8N(J,I)-Y0(J) 

vST(J,i)bV8T(J,I)»V0(J) 

zss(j.T)RZo(j).zs$(j,n 

zsN(j,nazQ(j)«zsN(j,n 

z8T(j,ntzo(j).zsT(j,n 

Tss(j,nR*Tss(j,n 

62 CONTINUE 

on 19 jai,Np 
U(J)b0,0 
v( J)a 0,0 
19 «.rj)a0,0 

8ReN0«SCLR(M,NCU) 

e 

C transform FIFLO PQIn-T COORDINATFS to EwC!»-F system 

190 DO 191 Jtl,NP 
XPB(J)a •XP(J)+PQ(M) 

YPR(J)a YP(J)«V0(H) 

191 ZPP(J)a -ZP(J)*ZO{M) 

C 

C CORRECT FIEl.f' POINT LOCATIONS IP DFSIRED 

C SFT UP NPTJ(-,-) ARPAV TD IDENTIFY PAmFLS ^.fAR JpT 

C*LL ChBFCT (Np,XPR,YPp,ZPM, "jNTlMt) 

TF rcFK,(;T,rt,f>) CO Tn 6i 
SRa-DS(»«)/2,0 
FACTOBaOSSlM, 1 ) 
mSBb? 

2ft continue 

C 

C Rf CT'-'NINC OF LOOP nvEB all RInGS Iw JET m 

□5BaDS(M)*FACT0R 
CAM!aCA**Vj(-)APJET(M)*oSR 
SRaSRtOSR 
C 

c 'ISf Sv'RfACf SPECIF tCAT lr,»j Tfi LOCATE VOBTEY BINGS 

R?1 IF* (SR^SSrv.NSB) ) 

92? nSRcnSRaI 

IF (n$b,CT,'S) go TO SI 

CU Tn u?i 

<iPS «KBMSSf“,NSk) 

Ar.eASS(-,,.<fB) 


JET 15S 
JET 1S6 
JET 157 
•lET 

JET 159 
JfY 160 

JfT 161 

JET 162 
JEt 161 

lET 16U 
JET 165 
JET 1 bh 
JfT 167 
JfeT 16A 
JFT 16® 
JFT 170 
JET i7l 
JET 172 
JET 171 
JET 170 
JET 175 
JET 176 
JE7 177 
JET 17« 
JET 179 
JET 180 
JET 181 
JET 182 
JET 18) 
JET 180 
JET 185 
JET 1H6 
JET 187 
JET 188 
JET 189 
JFT 190 
JET 191 
JET 192 
JET 19) 
JET 190 
JFT 195 
JET 196 

JET 197 

JET 198 
JET 199 
JET ?Oft 
JFT 201 

JFT 202 
JFT 201 
JET ?oa 
JET ?r>5 
JET ?06 
JFT ?07 
JET 208 
JfeT ?ft9 
JET 21ft 
JET 211 
JET ?i? 
JFT ?1 ) 
JFT ?l« 
JET ?1S 
JET 216 
JET ?17 
JFT 21H 
JET 219 
JET 220 
JET 221 
JET 22? 
JET ?2J 
JtT 2?M 
JET 22S 
lET 22*, 
JET 2?7 
JET 2?M 
JET 229 
JFT 2)0 
JET 2J1 



TH6BTS8(v,kSfO/l»AO 

XGBX|Sr‘'|N$V)«8G*tI^(TH6) 

VCaVS3(^iN6R) 

ZCaZSSrH,N8*>)«KC*C0S(THG) 

xr.NaXSM(M,KSR) 

Y6»^aVSN(M,>gSm 

ZGN«/8*^(afhS8) 

VCTaX8T(M,KjSR) 

YCTaVST(HfN9R) 

ZCTaZST(HfNSR) 

PACTnR8DIS(*<iN|A) 

cn TO 

«I1 Drt.TAB(9R»88(M,NSR«n W(68(>*|N8R)«Sa(H,NSB.i)) 

If (N9P-NPJ3) U2«ftt2a«azt 

flT TH6aT9S(Mfh8R*n«(TS|(a,N8R)«T8S(a,M|R.j)]«ntLra 
thgbthg/rao 
00 TO Uik 

ItA THG 8 T 99 (Mf^ 8 R)/BA 0 

fliA 86 aB 8 SrM,h»SP-n«(B 98 (H,^ 8 a)»B 88 (M,MSR«l ) ^PCUTi 
i(*aA9S(M,»i8P»nf(ASS(M,»j8R}«ASS(*<*N8R*l ) )*0PLTA 
X0BX3S(H«^8R«l)*O(SS(Mf^|R)«x88(^fNSR«tn«0tLtA • 8G*8!>4(THG) 
Z6BZ8SrH»N8B»U«(Z9S(M,RSR)«Z8S(^«M8R«l)i«oeLTA ♦ aG*C08(TMC) 
Y6aY88(H,NBR>n*(YSS(M,».8R)»YSB(HfN8R-n)*nELTA 
X6NBX8‘«(N|N|R>|)4(XS»d(M,NSR)«X|»j(M,^8R«lp«0CtTA 
V6NBVSN(H»N8R«n«(Y8N(M,NSR)«V8N(M,^8Ra}})aneLTA 
ZC>waZ8M(u,K<SR«l )*(Z8NfM,NSR)-Z8K'(M,N9R.| p*P8t.TA 
X6TBX8T(u»».aR«n«(X8T(»<,N|R]«x8T(H,NSR«m*n3LTA 
YGTaYST(M|^8Rana(Y8T(HfR8R)«Yir(M«N8Rat)] •DELTA 
ZCTBZST(M,N9R>l)f(Z8T(H,mR}«Z8T(MfK8R-l))*QeLTA 
F ACT0eBn88C‘*»N8R"l ) 

«jn CONTlNue 

50 continue 

e CALCULATE INFLUENCE OF TMII RJN6 ON ALL FIELD PQXnTI 

•NTMallNCTHO) 

CSTHaCniITHO) 

THGaTHGtRAD 

FCAHaA,0*(A6«B6) 

51 GAhmasgamI/fgam 
NL"! 

DO S8 NatfNB 

IF (NTIMB,LT,»1) Co to 138 
IF (NVLP.Lf.O) GO TO 138 
338 IF (n*NVL(NL>) 138,38,238 
138 nlbNL^I 

IF (nL,LE,nvlF) 60 To 338 
NLBNVLF*! 

138 CONTINUE 

XIFRa(XFR(N)«X6>*C8 TH ♦ ( ZPR (N ) «ZG) *SNTH 
ETARr tYPR(N)«YG) 

ZFTARBa(XFR(Nl.XC}ASNTH ♦ ( ZRR (N) aZG) aCSTH 

c 

C COHFUTE velocity INDUCED BY A OUAORtLATERAL RING 

e 

SS CONTINUE 

C SET UF CORNER POINTS OF RING 

XCROMlaXGT 
vCROnjaVGT 
ZCROn laZCT 

XCRQ(2)aXQT*2,*(iG«SNTM 

YCR0(2)aYGT 

ZCR0(2)aZGT«2,*P6*C9TH 

XCRa(3)8XGN*2.*ti6*SNTM 

VCR0(31byG»< 

ZCRQr3iBZGN«2,«BC«C8TM 

XCRQfU)>X6N 

YCRQ(«IbV6N 

ZCRniuiaZGN 

XaXFR(N) 

V8YPR(»i) 

ZaZPRfNl 

call QRInG (X,Y,Z,UG,vr.,i>G) 

UGANaUG«GAHNA 

VGAnbVG*CANMA 

HGAHB<rfC*6AN«A 

e 

37 (i(N)al<(NWuGA.H 
n(N)ih(N1«»GAN 


JtT 232 
JET 233 
JET 25a 
JET 23B 
JET 25 * 
JET ?3T 
JET 238 
JET 259 
JET 2flA 
JET 2«1 
JET 2Q2 
JET 2B1 
JET 2aa 
JET 2*9 
JET 20* 
JET 207 
JIT 208 
JET 209 
JtT 2S0 
JET 251 
JET 292 
JET 295 
JET 294 
JET 255 
JET 25* 
JET 297 
JET 298 
JET 259 
JET 2*0 
JET 241 

JET 2*2 

JET 2*3 
JET 2*0 
JET 2*5 
JET 244 
JET 247 
JET 268 
JET 249 
JtT 2T0 
JET 271 
JET 272 
JET 273 
JET 274 
JET 275 
JET 274 
JET 277 
JET 2T8 
JET 279 
JET 280 
JtT 281 
JET 282 
JET 283 
JET 280 
JET 285 
JET 26* 
JET 287 
JET 288 
JtT 289 
JET 290 
JtT 291 
JET 292 
JET 291 
JET 290 
JtT 295 
JET 29* 
JET 297 
JET 290 
JET 299 
JET 300 
JET SOI 
JtT 302 
JET 303 
JET 100 
JtT 305 
JET 30* 
JET 107 
JET 108 


V(N)aV(*i)«VGAM 

38 Continue 

c 

C NfiTP,, ARb VELUC1TU8 TNO'JCIO In FnGInF 8Y8TfcM 

C 

IF (8R,L7,SPtNn) Go Tn 20 

91 COnTIni'E 
C 

C TRANSFORM SURFACE COnROINATES BACK TO mINQ |V|TEn 

C 

jaM 

DO *3 JB) ,N9 

XSS(J,T)BXO(J)>XSS(J,T) 

X9Nfj,naxo(J)ai9N(J,T) 

XSTtJ,naxn(J}.XST(J,n 

v 88 (j,nBYSs{j,nAY 0 (j) 

YSw(j,n*YSN(j,n*Y6(j) 

Y9T( J,naY5T(J,n*Y0(J) 

zssr j, ! )«7o( j).zss( j, n 

z 9 N(j,nBzo(j)aZSN(j,n 

ZST(J,naZ 0 tJ)-Z 9 T(J,n 
TSS(J,na>TSS(J,n 
*3 continue 

IF (CFK»CT»0,0) go to 00 
DO 52 Nal,NF 
UP(Ni8UP(Nj+u(Nj 
VPtN)aVP(N)fV(N) 

92 NP(N)BMRfN)»N(N) 

IF (nPPImT) (40,a0,92 

C 

C optional output 

c 

•2 “PITF (*»718) M 
DO 90 NBl ,NP 

90 FRITE CtrTU) N,XPR(N).YPR(N),ZPK(Nl,U(N),vrNT.N(N) 

00 CONTINUE 

IP (cfk.ct.o.d) return 

9| DO 0| NB1,NP 
UP(N)8aUP(N) 

NFtN)a-wp(N) 

41 CONTINUE 
NVlPbNVLPZ 

IF (nPRInT.LT.O) return 
C 

C OUTPUT INO.'CFD VELOCITIFS IN «IN6 |VSTE« 

e 

fcRITE (*,71T) 

■RITE (6,715) 

DO 02 Ntl,NP 

42 WRITE (b,Tl6)N,XP(N),YP(N),ZP(N),UP(N),VP(N).wP(N), 

1 (NPrJ(J,N),jai,NjCT) 

RETURN 

90 WRITE (b,T21) 

STOP 

END 


JET 309 
JET 310 
JfT 311 
JET 312 
JtT 313 
JtT 314 

JtT 315 

JtT M* 
JtT 317 
JET 316 
JFT 319 
JtT 120 
JET 121 
JET 32F 
JtT 123 
JET 324 
JET 325 
JfT 126 
JtT 327 
JET 328 
JtT 329 
JfT 55« 
JtT 531 
JtT 312 
JET 333 
JtT 33« 
JET 335 
JtT 336 

JET 337 

JtT 538 
JFT 319 
JtT 3afi 
JET 341 
JET 542 
JET 343 

JtT 100 
JET 505 
JFT 106 
JET 347 
JtT 348 
JET 109 
JtT 350 
JET 351 
JET 552 
JtT 155 

JtT 350 
JET 355 
JET 356 
JET 157 
JET 158 
JfT 559 
JET 360 
JET 361 
JET 362 

JET 3*5 


C 

C 

C 

C 


8UBR0UTTNF JtTCL 

calculate TmF CEnTFRLINE Pn8TTlOo8 FOR MSB JETS TANCFnT 
Tn TME UPPER SURFACES OF THE wTnG and FI APS 
■OniFTFD TO St T UP SUNP*CE CnoRUlNATE SPA C TF IC AT ION qr jfx 

dimension XCLr25), TCl. (251 ,ZCL 1 25) » A ( 25 ) , TH ( P5> ,DF (25) 

rfi««OY /WNGOAT/ Y(iO).PSI*LF(301,PSTwTt ( 30 ) , S^m I . , CRN I*. , TPH I w 

cmwn^' /vfjcl/ *'fJ,NFjN(3) 

Cn-MO'. /iNOtXF/ NfRtG,^FLAP 8 ,TOfLAPno, 2 ),NCKlO),N.sM|ni,-F( 10 ), 


JCl 001 
JCL 002 
JCl noi 
JCL 000 
JCL 005 
JCL 006 
JCL 007 
JCL OrtS 
JCL 009 
JCL 010 


C 



cn 

00 


I M5TAi»T(t0),MCi«D(10),NFSCGrMfl) 

COMMON /BLDiT/ XeL(250)iVRL(290),ZUU250S«TP8T(2SO)*SM(250) 

COMMON /CFOiT/ *l.>*HAL(250),KCPt25O),¥CF{2S05iZCP(2S0U 

1 C*LPHI.(280),8*LPHL(250) 

COMMON /INOFX/ M8w,m*,mtqt,ncwI(30),1max,nfS 8G(301,L*8TF(50) 
COMMON /XYZCL/ NjET»NCVl.(2)iX0(2}«Yn(2),ZQ(2),GAMvj(2],ns(2}( 
t PHQ(2)fCMU(2)*XCLP(2«28)fVCLR(2i2«)iZCLP(2«28)iTHeTA(2«25)f 

2 •CLR(2,25)/AjeT(?<25),BjeT(2.29)«DSF*CT{2,2S), 

1 UCU<2»2S)« VCL(2*2S)# MCL(2*29)f CFJ.CFK 

COMMON /CLDAT/ NS8(2),aSC2iin*XSS(2,n)«Y89(2|iniZ88(2(lU* 

1 T8S(2«11)ft)S8(2*il)fA89(2«lt),X9N(2«in.YSN(2at)« 

2 ZSN(2,U)fX8T(2f in»Y9T(2,in,;3T(2,in,0sS(2rU) 

c ^ 

|NTRF(XL,XUi YL«YU>X)ayL«(Y««L)*CYUaYL)/(XU«)lL) 

e 

e 

fOl format (/10X«}hJCT,IS,|X|20HQUTBOAR0 of HlNQ TIF) 

702 format (/10Xi)hJ[T,M« 2X|UHOUTBOARO OF FLAFilS//) 

c 

RAOillSO, 0/s, 1019921 

C 

e LOOP OVER total NUMBER OF JETS 
C 

DO too JilfNJCT 
NCL«nCVL(JJ 

c 

€ transform jet TO MtNB COORDINATE SYSTEM 

C 

DO h Kil |NCL 

XCLR(JiX)iXQ(J)«XCLR(J|K) 

YCLR(J»X5tY0(J)*TCLR(J»K) 

A ZCLR(J»X)bZQ(J)«ZCLR(J»K) 

NCmimw/mSM 

63(J|l)a0,0 

XS9(JilSiiXCLR(J»n 

Y8B(J,llaYCLR(J>l) 

Tssrj, 1 )io.o 
99s;j,n«BjET{jin 
A99( 1 MA.JET(J,1) 

rss(j»n«DiFACT(j»i) 

X9S(Jf?)*XCLR(J(l) 

YSS(J,2)tYCLR(Jf2) 

T99(J,2)«e,0 
BSSr J«2)iBJET(J<2) 

A9.S(J,2]aAJiTf Ji2] 

088(J,2)bDSFACT(J»2) 

N8I(J)bI 

e 

C LOCATE INTERSECTION OF wlNG T,E, AND FLAF 1 L.E. 

e 

HSTiNCN^l 

no 10 iBHSTiHMfNCM 

I««t 

IMH1«I»NCW 

]F (YCP(IH)»V0(J)) Hi 12«10 
to CONTINUE 

mRITE (6,701) J 
GO TO too 
C 

e coordinates XS,ZB and XC#ZC ARF. on wing 

e 

It XHRXSLMH) 

ZB«Z8L(Im) 

XC«XCP(TM) 

zctzcPdw) 

60 TO U 

11 XBaENTRP(VCP(IMMl),VCR(lH),XBL(lMMl),x8LaiO,YO(J)) 
ZBmEnTRP(YCP(ImM1 ) ,vcp(Iio,z8L(I»'M1),ZBL(IM),YQ(J)) 
xCRENTRp(YCp(iNMn,ycp(iM),xcpnMMu,xcp(N),Ya(jn 
ZCRENTBPrYCP(lhHl),VCP(Iti),ZCP(lMMl),ZCP(I<),YO(jn 

IS MPJflNF.IU(l) 

Z8S(J,nBENTRP(XB,XC,ZB*ZC,X8S(J,in 

Z9B(J,2]aFNTRP(XB,XC,?B,ZC,X8S(J,2)) 

SS(J,2)BS9(J,n * IQRT((XS9(J,2)»XS9(J,m**2 

t ♦ (Y88(J,2).V98(J,n)**2 ♦ (Z89(J,2)»Z89(J,n)**2) 

Z0BZS9(J,n«B9S(Jfl) 

ZH«AB5(ZU*Z0( J) ) 

IF (ZH.Lt,l,0E«0<O SO TO 'la 


JCL on 

JCL 012 
JCL on 
JCL OIR 
JCL 019 
JCL OU 
JCl 017 
JCL 019 
JCL 01# 
JCL 020 
JCL 021 
JCL 022 
JCL 023 
JCL 02tt 
JCL 025 
JCL 02* 
JCL 027 
JCL 02B 
JCL 02* 
JCL 030 
JCL 031 
JCL 032 
JCL 033 
JCL 03* 
JCL 039 
JCL 03* 
JCL 037 
JCL 03B 
JCL OS* 
JCL 0«0 
JCL OOl 
JCl Ofll 
JCL 0*3 
JCL 0«* 
JCL 049 
JCL 0«* 
JCL 047 
JCL 04B 
JCL 04* 
JCL 090 
JCL 091 
JCL 092 
JCL 093 
JCL 094 
JCL 099 
JCL 09* 
JCL 097 
JCL 09B 
JCL 09* 
JCL 0*0 
JCL 0*1 
JCL 0*2 
JCL 0*3 
JCL 0*4 
JCL 0*9 
JCL 0** 
JCL 0*7 
JCL 0*0 
JCL 0*9 
JCL 070 
JCL 071 
JCL 072 
JCL 073 
JCL 074 
JCL 079 
JCL 07* 
JCL 077 
JCL 07* 
JCL 07* 
JCL 080 
JCL 0*1 
JCL 092 
JCL 093 
JCL 0*4 
JCL 085 
JCL 09* 
JCL OBT 
JCL 089 


C 

e 

e 


c 

c 

c 

e 

e 


on 13 KBlfNCL 

13 ZCLR(J,k)bZCLR(J,M)»Z0(J)*ZD 
ZO(J)bZD 
10 mTbncP(mfJ) 

M8T«M8TART(MfJl 

MND*MENn(HFJ) 

DO 1* tBH8r,MND,MI 
IFbI 

iFMlil.MI 

IF (YCF(IF)»V0(J)) 21,22,1* 

16 CONTINUE 

mRITE (*,7ft2) J,NFJ 
STOP 1* 

COORDINATES XEt ZE, AND XF,ZF ARC ON FLAF 1 

22 XCBX9U1F) 

ZEaZBL(IF) 

XF»XCP(1F) 

ZF.ZCP(IF) 

00 TO 25 

21 XCKENTRP(YCR(IFMn,YeRnF),XBLnFHn,XBL(IF),VO(J)) 

ZEbFNTRP(VCP(IFH1),YCP(IF),ZBL(IFM1),Z9L(IF),YQ(J)) 

XFtENTRP(YCP(IFMl),yCP{IF),XCP(lFMn,xCF(IF),YQ(Jl) 

2FtENTRF(YCP(IFMn,YCP(IF),ZCF(lFMn,ZCP(IF),YQ<J)) 

29 CONTINUE 

ZCBb(ZC*ZB)/(XC*XB) 

ZFE«(ZF«Z|)/(XF-XC) 

DF1«ATAN(«ZFE) 

XDb(ZE*ZB * XBtZCB • XL*ZFC)/(ZCB-ZFE) 

ZDbZB ♦ (X0*XB)«ZCB 

XFBLAbXE 

ZFBLAbZC 

XFCPAbXF 

IFCPA4ZF 

nSS(J)bS 

X89(J,3)BXD 

ySS(J,3)bV8S(J,2) 

Z89(J,3)b20 

TB|(J,3)b0.0 

88(J,3^B|S(J»2)al0RT((X9S(J,3)MXSS(J,2))**2 
1 ♦ (YS8CJ«3l»VS8(J,2))**2 ♦ (Z9S(J,3)«ZS8(J,2>)**I) 

XD,VOrj),ZD ARC coordinates of mINOmFLAP INTERSECTION 

BET UP NEM CCNTCRLINC OVER minO, FXRBT TWO POINTS ARC UNCHANGED 

DO 2* IB1,2 
XCLCn>XCLR(J,I) 

VCLM)BYCLR(J,n 

ZCUpBZCLRtJr!) 

THUiBO.O 

DF(nBD0FACT(J,I) 

AUIbAJEKJ,!) 

2* B(!)bBJET(J,I) 

LBl 

LRbS 

27 IF (XCLR(J»LR)»X0) 2*,2*»29 
29 XCL(L'}aXCLR(J,LR) 
vCL(L)«YO(J) 

ZCL(L)«Z99(J,J)-BJET(J,LR) 

A(L)BAJET(J,LR) 

8<L )»hjET(J,lR) 

TM(L)b0,0 

DF(L)bD9FACT(J,LR) 

L»LAl 
LRaLRf I 

IF (LR.ST.nCL ,0P,L,6T,25) STOP 27 
60 TO 27 
29 XCL(L)aXD 
yCL(L)«VD(J) 

A(L)BENTRP(XCLR(J»LR*l)*XCLR(J,LR),AJET(J,LR*n»AJET(J,LR)»XD) 

B(L)«E«TRPCXCLR(J*LR-l),XCLB(J,LR),8JfT(J,LR»l),BJET(J,LR.),X0) 

TM(L)«0,0 

0F(L)«0SF4CT(J,LR»1 ) 

ZCL(L)«Z99(J,3)-B(L) 

BSS(J,3)aR(L) 

A9S(J,3)*A(L) 


JCl 089 
JCL 090 
JCL 0*1 
JCL 0*2 
JCL 095 
JCL 09U 
JCL 0*5 
JCL 09* 
JCL 0*7 
JCL 099 
JCL 0*9 
JCL 100 

JCL lOl 
JCL 102 
JCL 103 
JCL 104 
JCL 105 
JCL 10* 
JCL 107 
JCL 108 
JCL 10* 
JCL 110 
JCL 111 
JCL 112 

JCL ns 

JCL 114 
JCL 115 
JCL 11* 
JCL 117 
JCL 119 
JCL 11* 
JCL 120 
JCL 121 
JCL 122 
JCL US 
JCL U4 
JCL 125 
JCL 12* 
JCL 127 
JCL 121 
JCL U* 
JCL ISO 
JCL 111 
JCL 112 
JCL iSS 
JCL 1S4 
JCL 115 
JCL IS* 
JCL 137 
JCL 138 
JCL 13* 
JCL 140 
JCL }4i 
JCL 141 
JCL 143 
JCL 144 
JCL 145 
JCL 14* 
JCL 147 
JCL 148 
JCL 149 
JCL 150 
JCL 151 
JCL 152 
JCL 153 
JCL 154 
JCL 155 
JCL 15* 
JCL 157 
JCL 158 
JCL 15* 
JCL 1*0 
JCL 1*1 
JCL 1*2 
JCL 1*3 
JCL 1*4 
JCL 1*9 
JCL 1** 



DII(J*S)BOr(L) 

L0«L*1 

t«LO*i 


(/I 


<o 


e 

e 

c 

c 

c 

e 


c 

c 

e 


c 

c 

c 


JCT OVEK k.iNC CO»*»LETE>)« START FLAP 1 

(POINT LO IN transition region SFTWEEN mInQ ANn FLAP] 

the FOLLOiilNC POINT (D COBRESPONDS TO THJ l,E, OF FLAP J 

NFKRl 

XCL(L)BX0>B<LB2)*SIN(0Fn 

YCL(L)«TQ(J) 

ZCL(L)PZD«B(L*2)*C0S(0Fn 
TW(L)R HFIaRAO 
OFa)aDF(L«2) 

A(L)«*a-2) 

a(L)aSa-2I 

1«LPI 

THE FOLLObINC point (l) COBRESPONDS TO THf T.E, OF FLAP I 


F«NCF(hFJ] 

IF (NFj.LFtt) FpF*2,0 

eFlB2,Q*P*BQRT((XC«XF)**| * (ZI«ZF)**2^ 

X0iX0«CFl«C0irDFl) 

ZnRZO«CFl*SlN(OFl) 

NS8(J)Ptt 

XSS(J|(|)IX0 

Y8S(Ji(i)iY8S(J,3) 

Z8S(J»«)BZ0 

TSS(J»U)bOF1*RAO 

8S(J»4)RSS(J«S)«SQPT(rxSS(Jf«)«X8S(J,J))**| « 
t (VSS(J*P)*VSS(>;#S))**2 ♦ (ZSS(J,«i«Z8S(J,S)3**I) 

S2 IF (XClR(JiLR]«XO) SQtSOiSl 
SI LRlLRTl 

IF (LR.GT.ncL) stop s2 
GO TO 32 

1« A(L)PCNTRP(XCLR<J#tF*!)iXCtP(J#tP)#AjeT(JiC»«n#AJfT(JiL«JiXOJ 
S(UiFNTRP(XCLR(J>L"«nfXCLR(JfLR)»BJCT(J,LR«!)iBJCT(JiLR)»XO) 

XCL(L}bX(V«B(L)*SIN(DPi) 

YCL(L)bYQ(J) 

ZCL(pPZD*B(L)ACOS(DFi) 

TH(L)b DFIaRAO 
DF(L)>0SFACT(J,LRp1) 

B8S(J|4l)aB(LI 

ASS(J»U)«A(L) 

DSS(Ji«)aOFa) 

L«L*1 


NO- CnnPUTE POINT LO IN TRANSITION REGION 

XPpXCUL-1) 

ZFrZCU(L* 1 j 
XEaXCL(L«2) 
rcRZCLa*2j 
XCRXeL(L-4] 

ZCbZCL(L>4] 

XBaXCULaB) 

ZBaZCLa-S) 

ZCBa(2CpZB}/(XC*XB} 

ZFEa(ZFpZE)/(XF-XE) 

XCL(L0)a(ZE • ZB « X|*ZCB • XE*ZFC)/(ZC6aZFE) 

ZCLaD)c2B*(XCL(LD)«XB)*ZC0 

VCLanjafO(J) 

A(LO)aA(L*<n 

S(Ln)aR(L-<n 

TN(LOJtO,5*(TH(LO-n*TM(LOtin 

DF(LD)«OF(LpB) 

IF (XC|,(L0j-XC) 3«,3«,53 
S3 XCLa0)a(XCtXE)/2|0 
ZCLaO)a(ZC«ZE)/2,0 
14 !F(nfJpNFK] S0,50iS5 
S3 NFKINFk«1 
LDaL 
L»L*1 
XBaXE 
ZBiZE 


JCL U7 
JCL 16B 
JCL 

JCL I TO 
JCL ITi 
JCL 1T2 
JCL ITS 
JCL 174 
JCL 179 
JCL ITS 
JCL 177 
JCL 178 
JCL IT# 
JCL ISO 
JCL ISl 
JCL 182 
JCL IBS 
JCL ISO 
JCL 189 
JCL 18* 
JCL 187 
JCL 186 
JCL 189 
JCL 190 
JCL 191 
JCL 192 
JCL 19S 
JCL 19« 
JCL 199 
JCL 198 
JCL 197 
JCL 198 
JCL 199 
JCL 200 
JCL lot 
JCL 202 
JCL lOS 
JCL 108 
JCL 209 
JCL 208 
JCL 207 
JCL 208 
JCL 209 
JCL 210 
JCL til 
JCL 212 
JCL 219 
JCL 214 
JCL 219 
JCL 218 
JCL 217 
JCL 218 
JCL 219 
JCL 220 
JCL 221 
JCL 222 
JCL 229 
JCL 224 
JCL 229 
JCL 228 
JCL 227 
JCL 228 
JCL 229 
JCL 290 
JCL 291 
JCL 292 
JCL 293 
JCL 294 
JCL 299 
JCL 298 
JCL 29T 
JCL 296 
JCL 239 
JCL 240 
JCL 241 
JCL 242 
JCL 249 


XCaXF 

ZCaZF 

C 

C CONPoTf InTCRsECTIUn OF TaO FLAPS 

e (POINT LI) IS IN TRANSITION REGION BFThEEN PLAPS) 

C 

HFJtNFJN(NFH) 

MlaNCF(MFj) 

H8TaHSTART(«FJ) 

HNDaHEND(MFJ) 

DO 98 IaM8T»MN0»Hl 
iFal 

IFHlRl-HI 

tF(YCPaF)pYO(J)) al»02,98 

98 continue 

WRITE (8»T02) JrHFJ 

STOP 38 

<1 XFBLBbXBL(IF) 

ZFBLBaZBLUF) 

XFCPBaXCPMF) 
fPCPBaZCPaFl 
GO TQ 45 

81 XFBLBBENTRP(YCP(XFHl),YCP(JF},XBL(tFMn,XBL(IFWYO(ji) 
ZFSLBaENTRP(YCPaFMl),YCP(!F)«ZBL(IPHi),|lL-MFl,VO(J)) 
XFCPSaENTRP(YCPaFHl>,YCP(lF)iXCPCJFNl),XCP(rP|»YBUM 
EFCPB«ENTRP(VCP(iFNn,YCP(IF),ZCPUFM|>,ICP(XF)»YB(J)) 

49 continue 

ZCSa(ZFePA«ZFBLA)/(XFePAaXFBLA) 

ZFEBrZFCPB«ZPBLB}/tXFCPB«XFBL0) 

DF2aATAN(«ZFCl 

XDB(ZFBLBaZFBLATXFlLAaZeiaXFBLBaZri]/(Zei»ZFh 
ZDrZPBLA * (XDaXPBLAUtCB 
C 

C XDfYO(J)»ZD ARE COORDINATES OF INTERSECTION OF FLAPS 

e FOLLOWING FOInT (L) CORKEIPONDS TQ AFT FLAF L.C. 

e 

XCL(L)bXD-B(L"2)*8IN(DPI) 

ycta>iYG(j) 

ZCL(L)bZD-B(L«2)bCOI(DF2) 

TH(L)a DF2*RA0 

0F(l]b0F(L-2I 

A(L)4A(L«2) 

B(L^ 4 B(L *21 

e 

C following FOINT (L) C08REIF0NDI TO AFT FLAF TiC. 

C 

LBLAl 

FBNCF(HFJ) 

IF (NFJ.EO.NFF) FbFw2,0 

CF 2 a 2 ;o*F*SORTr(XFBLMXPCPB )**2 ♦ (ZFBLB«ZFCPB W*Z) 
XDbXD«CF2*C0S(DF2) 

Z0bZD4CFI«S!N(DF2> 

MBNSSCjWl 

NS8(ji4M 

XIS(J#w)rXD 

ZSI(J|M)aZD 

YSS(J|M)aY8S(J»H«n 

Tt8(JfH)aDF2*RAD 

88(J,M)i89(J»M»t)iSQPT((XSS(JrW)wX8l(J|N«li)**2 Y 
1 (ZSS(J,H)«ZSS(J»M«nl**2) 

92 IF (XCLB(J»LR)«XD) 9S,9Sf91 
91 LRaiRPl 

IF (LR.CT.NCL) stop 92 
80 TO 92 

99 A(LS4ENTRP(XCLR(J»LR-t)*XCLR(JiLR)fAJET(JfLR«1)»AJET(JiLR)fX0] 
B(L)aENTRP(XCLR(J*LR*niXCLR(J»LR)|BJET(J«lPal)»BJET(JiLR)iXD] 
BSSrj«N}BB(LT 

A8S(JfW)BA(L) 

XCL(L)aXD»B(L)*ltN(DFt) 

YCL(L)bYQ(J) 

ZCL(L)aZ0«0(L)*C0S(DF2) 

TH(L)B 0F2*RAD 
0F(L)B0SFACT(J,LR»1) 

DS8(J.MJ«0F(L) 

LBL*1 

e 

e NOW COMPUTE POINT LD IN TRANSITION REGION BETWEEN FLAPS 

C 


JCL 244 

JCL 249 
JCL 248 
JCL 24T 
JCL 24B 
JCL 249 
JCL 290 
JCL 291 
JCL 291 
JCL 29S 
JCL 194 
JCL 199 
JCL 198 
JCL 297 
JCL 291 
JCL 199 
JCL 280 
JCL 281 
JCL 282 
JCL 289 
JCL 284 


JCL 187 
JCL 2A8 
JCL 2a9 
JCL 270 
JCL 271 
JCL 272 
JCL 279 
JCL 274 
JCL 179 
JCL 278 
JCL 177 
JCLZTr) 
JCL 279 
JCL 260 
J.L 2Sl 
JCL *02 
JCL 203 
JCL 204 
JCL 109 
JCL 2S8 
JCL 2BT 
JCL IBS 
JCL 289 
JCL 290 
JCL Z*»l 
JCL 292 
JCL 293 
JCL 294 
JCL 249 
JCL 298 
JCL 197 
JCL 291 
JCL |99 
JCL 300 
JCL 301 
JCL S02 
JCL 903 
JCL 904 
JCL 909 
JCL 108 
JCL 307 
JCL lOB 
JCL 109 
JCL 910 
JCL 9U 
JCL 911 
JCL 313 
JCL 314 
JCL 319 
JCL S18 
JCL SIT 
JCL 31S 
JCL 319 
JCL ste 
JCL Sit 



xFBXcia«n 

zr«zcLa»n 

xEixeia- 2 } 

IF«ZCLa- 2 ) 

2 CB«(ZC-Z")/(XC-XS> 

zFt«(ZF« 2 ei/(XF*xc) 

lCL(LO}i(ZC*ZB*Xe*ZCB«XE«ZFeW(ZCS«ZFCi 

ZCLaP)«Ze 4 -(XCL(LD)-XB)*ZCB 

vci.(^D)«vg(j) 

A(LD)bA(L «<0 

Bao)sBa«tt) 

THCL 0 )il 7 ,B«tTM(LD*l)*TM(L 0 »l)i- 

DF(t.O)iOFCLO«n 

XFBLAIXFBCB 

ZFBLAbZFBLB 

XFCFABXFCFB 

ZFCPAiZFCPe 

IF (xcL(LD)«xcLao»n) SflfSafSo 
Bfl XCl(LD)a(VCLaD-l)*XCi.(LD^n)/ 2,0 
ZCL(L'>)«(ZCl(LO-ntZCL<L 0 *n)/l ,0 
GO Ta su 

so IF (LiC^.ZS) BTO» SO 

finish centerline specification MTH a FARiSHLlC ARC 

POINTS H AND I ARC LAST COHPUTCD CENTCRLlNC POINTS ABOVE LAST 

flap, point s is the end of the jet. 

XHiXCL(L- 2 ) 

»i«xcLa»i) 

Zn*ZCL(L- 2 ) 

ZI«ZCLfL*n 

TT-U(/m*Z 1 )/(XI«Xh) 

THl 8 ArAN(TTHn«RAD 

XS«XCLRtJ»«CL) 

ZSaZl«(Xt*xn*TTHl 4 l. 07 S*EXP(« 0 ,CSBS*TNI) 
calculate CnCFFieiENTS OF PARABOLA 

aAa((xs-xl)/(Z8«ZI>«(XI-XH)/(Zl.ZH))/((ZS*ZS*ZX*ZI)/(ZS«ZI) 

\ •?,o*zn 

SBi(XNXh)/( 2 I«ZH) - I.OtZiPSA 
SCbXI • |A*Z!*ZI • 9 B*ZI 
KLaS 

0X«(X8>XCLa«ih/9.;0 ♦ 0,0001 
IF (L.LF.ZOJ Go TO SB 
kLb 25 «L 

aklbkl 

OXa(Xi-XCLa«lh/AKL « 0,0001 
S* COnTINuF 
Akls 0,5 
DU S 5 IbWFL 
IF n,cT,n akl"1,o 
IF (I.Cn.KLI AKLal.S 
XCL(L)bXCLCI- 1 )tOX«Akl 
VCL(L 3 b’' 0 (J) 

ZCL(L)af. 6 B-SQRT( 8 e*SB* 4 , 0 *aA*(IC»xeL(L))n/( 2 . 0 * 8 A) 

ST IF {XCLR(JiLR)aXCL(D) SS.SS.BO 
60 LR*LR *1 

IF (LP.CT.NCLJ 8 T 0 » 60 
SO TO S 7 

SI A(LJ«ENTRP(XCLRU»L»-n#J<ClR(J#LR)#AJ|T(J,LR*ti»AJeT(J,LRJiXCL(L)) 
BajBEN 7 RP(XCLRf JiLR-t),XCLR(J»LR)»BJET(J,LRan» 8 JCT(J,LRJ#XCL(L)) 
TTHBl , 0 /( 2 , 0 «SA«ZCL(L)* 9 B) 

TH(L}B«ATAN(TTH)*RA 0 

0 F(L)BO 8 FACT<J.LR-n 

IF (Aa 8 rTH(L)),CT,AB 8 (TH(Lalh) TH (L ) bTH (L -1 j 
t*L*l 

5 S CONTINUE 
L«L«l 
NCrL(J)BL 


LOCATE THE INTERSECTION OF THE EDGES OF THE JET WITH THE 
trailing EDGES OF THE LIFTING SURFACES 


XSNfJ,-)# ETC, I INBOARD SIDE OF JET 
X 8 TfJ,»), ETC, I OUTBOARD SIDE OF JCT 


TPHlHBSPHlK/CPHlH 
XSNtJ, naxSSf J, 1 ) 
xSNrjf?)Bxss(j»2) 

XSTCJf l)BX 5 $(Jin 
X5T(J,2)aXSS(J»2) 
v9N(j»nBvss(Jti) ♦ AjM(j,n 
YSTtJ»n«TS 9 (J»t) • AjrT(J,l) 

Z 8 N(J,nBZ 5 S(J,n ♦ AjET(J#n*TPHla 
28 T(J,nBZ 88 (J,l) ■ AJETIJ»l)*TPHlfc 
ZSN(J,2)bZSS(J,2) ♦ ASS(J»2)*TPH1h 
Z 8 T(J, 2 )»Z 8 S(J, 2 ) • A 88 (Ji 2 )*lPHl" 
v 8 N(j, 2 )Bys 8 (J, 2 ) T AS 8 (J» 2 ) 

Y8N(J,3)bV8S(J«S1 * A89(J»S> 
v8T{J,2)bvsS(J, 2> • ASS(J#t) 

Y 8 T(J,S)BVSS(J, 3 ) • ASI(J» 3 ) 

e 

DO SOO KGBtft 
VOEDCbysn(J,S) 

IF (KG,‘Ey,2) YOEOCaYSTCJiS) 

C locate intersection of ring T,E, and flap I L.E, 
e 

HSTBNCW41 

DO Sio !bhST»mh»NCh 

IKBl 

IHHlBl*NCW 

IF (YCPUHiaTOCOO) SH,912iS10 
SIO continue 

GO TO Sll 

e 

C coordinates XB»ZB and XCfZC ARE ON hINC 

c 

§12 XBbXBL(In) 

ZBbZH(In) 

XCbxcP(IM) 

ZCaZCP(lH) 

GO TO SIS 

SU XBaENTRprvCP(lHHn,YCP(lHUXBL(tN‘*n*XSL(tM),YOEDO) 
ZBBENTRPIVCP(!NHnfYCP(lM)f ZBUtlNHUf ZBL(IH)*VQED6) 
XCB£NTRP(VCFCIkHU,TCP(lN)»XCPCla'^niXCP(!M)iVQCOSl 
ZCtCNTRP(YCP(lHH|)»YCP(I«)»ZCP(INNl)»ZCP(XN)»YOIOS) 
SIB hFJbnFJNU) 

NlBNCF(HPj) 

H 8 TaH|TART(MpJ) * Ml 

hko»hCnD(mFJ) 

DO 516 taMBT,MND>MX 
IFBl 

IF-ltl.MI 

IF (YCP(IF)*V0ED6) 52l,S22fS16 
S16 CONTINUE 
GO TO Sll 
C 

C COORDINATES XE| ZE, AnO XF,ZF ARE ON PL*P 1 

c 

922 xCbXBL(IF) 

ZEbZBL(IF) 

XFaXCP(IF) 

ZFbZCP(IF) 

GO TO BIS 

521 XE«ENTRPfYCP(lFMn,VCPClFJ.XBL(IF*-l)»XBL(:Fl,YQ|OCj 
ZEaENTRP(YCP(IFHn»YCP(IF>,ZBL(IF‘'n»ZBL(IF),Y0ED6) 
XFaFNTflP(VCP(IFHn»VCPaFJ,XCP(IFHlJ,xCP(IF),YOEOO) 
ZFaENTRP(VCPnFHl),YCP(lF)*ZCR(lFHn,ZCP(IFUVOEDG} 

92B CONTINUE 

ZCBb(ZC«ZB>/(XC*XB) 

ZFE«(ZF*ZE)/(XF»XE) 

DFlaATAN(aZFE) 

XOalZEaZB * XB*ZCB • XEAZFC)/(ZCa«ZFE) 

ZObZB * (XDaXB^ZCB 

IP (KG«n ^oa»SOa,B05 
BOu xSs(j»3)BXP 
Z8 n(J, 3)»ZD 
on TO BOR 

BOB XSTCJfSiBXO 
ZSTU,3 )bZD 
BO#, continue 
NB| 


JCL 

JCL 400 
JCL 401 
JCL 001 
JCL 403 
JCL 404 
JCL 40 B 
JCL 406 
JCL 407 
JCL 40 S 
JCL 40 R 
JCL 410 
JCL an 
JCL 412 
JCL 413 
JCL 414 
JCL 41 S 
JCL 416 
JCL 417 
JCL 418 
JCL 419 
JCL 420 
JCL 421 
JCL 422 
JCL 423 
JCL 424 
JCL 4 |S 
JCL 426 
JCL 427 
JCL 42 B 
JCL 420 
JCL 430 
JCL 431 
JCL 432 
JCL 433 
JCL 43 « 
JCL 43 B 
JCL 436 
JCL 437 
JCL fllB 
JCL 450 
JCL 440 
JCL 441 
JCL 442 
JCL 443 
JCL 444 
JCL 445 
JCL 406 
JCL 447 
JCL UUB 
JCL 440 
JCL 490 
JCL 491 
JCL 492 
JCL 4 S 3 
JCL 454 
JCL 499 
JCL 496 
JCL 0 S 7 
JCL OSB 
JCL 490 
JCL 460 
JCL 461 
JCL 462 
JCL 463 
JCL 464 
JCL 46 S 
JCL 466 
JCL 467 
JCL 468 
JCL 460 
JCL 470 
JCL 471 
JCL 471 
JCL 473 
JCL 474 
JCL 479 
JCL 476 



COMHETf surface SFECIFtCATIOM OF JET SPUNOitV 


e LOCATE INTCRIECTION OF JET SIDES »tTH FLAF T,E, 

e 

m NiN«i 

c 

VOEDO>VSS(J»N) « ASS(J,Ai) 

If (KS.'CQ.l) VOC00«VS|(J,N) • ASS(J«N) 

IF (NFJ.CO.NO) 60 TO 9U 
DO StO iBMSTfMNDiMI 
IFlI 

fFMUl.Nl 

IF (VCFClFj.vOfOS) 92*fS27»9ZQ 

ISO continue 
SIT FSmIFL(IF) 

2BmZSL(1F) 

XCrKCF(IF) 

ZCiECF(TF) 

60 TO SU 

SES X6iesTRF(TCF(tFHnfVCFMF)|X6L(lFMn,x|tnFl,VQED6) 
ZSirNTRF(YCFUFNn#veFaF)iZILnFRniEBLUF)«V0l06) 
XC«ENTlF(VCF(lFHl)«yc»(|F)9XCFnFH|)«XCFnFi,VQED6) 
ZCBFNTRF(YeF(XFNl)«VeP(tF)*ZeF(|FMn,2CF(tF),VQED0) 

BIS continue 
60 TO 9BS 
fSS HFJaNFJN(NFJ) 

60 TO 99S 
I9S HFJlNFJN(N.I) 

SM mI«ncF(nFJ) 

HSTBNSTARr(NFJ) f MI 

mndiwCao(mFJ) 

no ItMlTfMNDfHI 

P«I 

IFMial.MI 

IF (YCFnF)«Y6|0l) SStf99l*99l 

9se> continue 
so TO SSt 
991 XEaXSiMFI 
ZfiZIKIF) 

YFtXCFflF) 

ZFuZCFCTF) 

60 TO 991 

991 XENCNTRF(VCF(tFMl),VeF(lF)»XBUIFMnu9L(lF)*T6e06) 
■Ze«CNTRF(VCFaFMl)«YCM(XF)«ZBL(tFMl)fZSLnFi,Y6EDi) 
XFtENTRF(TCF(XFNn»YeRCIF)«XCFnFMn,xCF(IF).V6ID6) 
ZFsENTRF(YCF(lFFn,YCP(IF)iZCF(lFNn«ZCFaFifVQCOC) 
99S CONTINUE 

ZCBfl(ZC«ZB)/(XC»XB) 

ZFCiaF*ZE)/(XF«Xl) 

eFliiTAN(.ZFC) 

IF (NFJ.C0.S.S1 60 Tq 597 

XDKZC.ZB * XBtZCB • xE«ZFf 1/(tCS«2F|) 

ZOrZS ♦ (XD.XS)*ZCS 
TF (K6-1) 92«f9tS*9SB 
5IS XSN(.I|N)«XD 

ZSN(j,n)iZD 
V|N(J,N}«YOE06 
so TO 931 
9SP X8T(JU)*X0 
Z8T(JfN)«Z0 
TST(JiN)tVUED6 
SSI CONTINUE 
on TO 555 
S9T FiNCF(MFJ) 
r«F*?,o 

CF|a2.0*r*80RT((XE.XF)*«2 ♦ (ZE«2FU*I) 

XDaXD«CF2*CQS(DF21 

ZDrZDtCF2*SIN(DF2) 

IF (K6*n SOftfSORiSNY 
9«S XSN(jfN)aXD 
ZSN(J,NllZO 
V9N(j,N)aVQED6 
on TO 5<iS 
9«7 XS7(J«N)tX0 
ZST(J,NUZO 
vST(j,N)aYQCDG 
5«F CONTINUE 
500 CONTiMUt 


JCL «77 
JCL STS 
JCL «79 
JCL SS9 
JCL sii 
JCL Sit 
JCL SS9 
JCL SSR 
JCL SS9 
JCL SSS 
JCL SST 
JCL ssa 
JCL SSS 
JCL S90 
JCL «SI 
JCL SSI 
JCL S91 
JCL SSS 
JCL SS9 
JCL SSS 
JCL 4S7 
JCL SSS 
JCL sSS 
JCL 909 
JCL 901 
JCL 901 
JCL 909 
JCL 90S 
JCL 909 
JCL 900 
JCL SOT 
JCL SOS 
JCL 90S 
JCL 91S 
JCL 9U 
JCL 911 
JCL 919 
JCL 91S 
JCL 919 
JCL 91S 
JCC )IT 
JCL 910 
JCL SIS 
JCL SIS 


JCL 919 
JCL 910 
JCL 919 
JCL 920 
JCL SIT 
JCL SIS 
JCL SIS 
JCL 990 
JCL 991 
JCL 592 
JCL 999 
JCL 99S 
JCL 599 
JCL 930 
JCL 597 
JCL 590 
JCL 53S 
JCL 940 
JCL 9«t 
JCL SS2 
JCL SS9 
JCL 9«« 
JCL 5«5 
JCL S40 
JCL 547 
JCL SiS 
JCL SSS 
JCL 590 
JCL 551 
JCL 552 
JCL 551 


C 

e 


c 

e 

e 


c 

c 

c 


HSNSSfJ) 

TNGBTSS(Jr**)/RAD 

XEBXS9(J«N).BS9(JfM)*SIN{TH6)al,0S 

DO 09 I41»L 

iFtI 

IF rxE.xcKin oifoius 
09 continue 
04 DO OS XsiFfL 

MBM.f 


TH6«TH(n/RAD 

X 89 (JU)tlCLfn ♦ S(n*SIN(TH 6 ) 

ZS8rj|H)aZCL(n ♦ BCnACOKTHS) 

Y8B(J«M)BVCl(n 

TSS(JU)BTH(I) 

• 9(JrNUS8(J»M.l) a lBRT((XS|(J,H).XS9CJ»M»n)a*l 

t (Zss(jfM).zss(j*M«in**i 

NSStJlSN ■ 

AS|(J»M)SAm 

BOS(J»M)aS(I) 

DSS(J>M)aOF(t) 

X9NtJ«H)«V8B(J»H) 

ZlN(J*M)SZII(J«M) 
y|N(J»H)BV6S(J,H) t AISCJfM) 

XST(JfHUVSS(J«M) 

ySTUU)aTM(J»M) • A9ICJ»0) 

ZST(J«muZ8S(J«M) 

09 continue 


CHECK SURFACE COORDINATES FOR |RRC6UL*RIT JES 

NFJSaNFJaS 
TS 00 TO UNFJifM 
Ilal 

IF (XSN(J,n,6E,XlN(J,I.m 60 TO T1 
IF (XIT(J*t>Ue«X6TCJ*l*m 60 TO T1 

70 continue 
60 TO 75 

71 MBM.l 
n9S(J)bH 

DO T9 IBIJ.M 
XBKJrlUXSBCJiUl) 

yss(j»nBvs8ij«un 

ZSS(J*nBZB9(J*Xan 
7SS(J«l)sTS8(J,Ian 
SS(J»IU BS(J.Ul) 

A89(J»t)aASS(J»t*l) 

S89(J»naBBS{J»Ial) 

D8S(J(I)aOSS(J«!al) ^ 

XSN(j,l)aXBN(J,Ian 

ySN(j,navSN(J,Zal) 

ZSN(Jf naZ8N(J,ral) 
ySTU*naX9T(J,Ial) 
ySTtJ»naTST(J,lal) 

ZST(J»I)aZ8T(J,Ul) 

71 CONTINUE 
60 TO 7« 

75 CONTINUE 

RAISE JET ABOVE SURFACE OF WING ANO FLAPS 

HbOS(J)bO, 5 
20(J)aZ0rj).H 
DO B1 lai,H 

0HXBHfeSIN{T89(J» n/RAD) 
DMZBM*C0S(T9S(J»n/RAD) 

X9StJ,T)aX6S(J»n*DHX 
x9Nu,nBxsNrj,i).oNx 
XST(J,|)BX8T(J,n»0MX 
ZSSCJf f )BZ98(J,n*DHZ 
zsNrj,nBZ8N(j,t)»0HZ 
zsTu»n»z8T(j,n-oHz 
81 CONTINUE 
no 82 TB1 A 
OHXBH*8!NfTH(I)/BAO) 

0NZ»H*Cn8(TM(IWfiA0) 

XCLIDaXCLf I)«DHX 


JCL 554 
JCL 959 
JCL 590 
JCL 557 
JCL 558 
JCL 55S 
JCL 500 
JCL 501 
JCL 902 
JCL 909 

JCL 90S 

JCL 505 
JCL 500 
JCL 507 
JCL 900 
JCL SOS 
JCL 970 
JCL 971 
JCI. 972 
JCL S7J 
JCL 97i 
JCL 579 
JCL 970 
JCL 577 
JCL 978 
JCL STS 
JCL 580 
JCL 5S1 
ICL 981 
JCL 9S1 
JCL 5811 
JCL 585 
JCL 580 
JCL 587 
JCL 9BR 
JCL 9SS 
JCL 5S0 
JCL 5Sl 
JCL 5S2 
JCL 9S| 
JCL 9S4 
JCL 5S9 
JCL 9S0 
JCL SST 
JCL 5S8 
JCI. 5SS 
JCL 400 
JCL 001 
JCL 001 
JCL 80S 
JCL 004 
JCL *09 
JCL *0* 
JCL *07 
JCL 608 
JCL 60S 
JCL *10 
JCL *11 
JCL 012 
JCL all 
JCL *14 
JCI *15 
JCL *1* 
JCL *17 
JCL *1B 
JCL *1S 
JCL *20 
JCL *21 
JCL *22 
JCL *28 
JCL *24 
JCL *29 
JCL *2* 
JCL *27 
JCL *20 
JCL *24 
JCL *10 
JCL *11 



o> 




ZCL(I)tZCLCI)*DHZ 
•I CONTINUE 

e 

C TRANSEOfiM JET lACK Tn JET COORDINiTf SY8TE« 

C 

00 41 I>1(L 

XCL<((Ji!)«XO(J)«KCLni 

VCLR(J.n«vCL<I)«TQ(J^ 

zcL«(j*n>zo(j)«zcLa) 

4JET(J,t)iia) 

BJET(J,naBCn 

TMCTA(J,n»«TH(n 

08EACT(J«n«DFM) 

41 CONTINUE 

tdd continue 

RETURN 

end 


JCL 412 
JCL 41) 
JCL 454 
JCL 411 
JCL 4)4 
JCL 4)7 
JCL 459 
JCL 4)4 

JCL 649 
JCL 401 
JCL 402 
JCL 401 
JCL 400 
JCL 409 
JCL 404 
JCL 407 
JCL 409 


e 

c 

c 


c 

c 


lUBRQUTINC CQRECT ( NR , XPR, VPR, JPR , h.ntIhE) 

CORRECT MELD POINT LOCATION! TO AVOID VORTEX RING 91NQULAR1T1E6 
NODIEIEO FOR SURFACE SPECIFICiTtON OF QUADRILATERAL RINGS 

FIELD POINT IDENTIFICATION, ,,, 

NPTJ a 0 POINT OUTSIDE JET» NOT CORRECTED 
a 1 POINT NEAR JCTf corrected 
a UM POINT INSIDE JET h, CORRECTED 

dimension XPRC210)«YPO(250)iZPR(IS0) 

COMMON /IVZCL/ NJET»NeVL(l)iXQ(8]iT0(2),EQ(2)*GAMVJ<2),0|(2), 

1 RH0f2WCMUr2)|FClR(|,29}»VCLR(2»2l)»ZCLR(2,2S}»THETA(2f|9)f 
t SCLR(E,25)i AJET(2>29)iSJET(2(25)iD9FACT{2«29)i 

1 UCL(2,25)» VCL(2i2S)« mCl(2«29)* CFJiCFK 

COMMON /CLDAT/ N9S(2),98(2«iniXSS(2,in»vS9(2«in(ZSSr2iU)» 

1 f99(2»l n»99S(2»l n*ASS (2,11), x8N(|,it),VSN( 2,11), 

8 ZSN(2,tn,XST(2,in,VST(2,ll),ZIT<2,ll)iDSS(2,U) 

COMMON /PTOAT/ NPTJC|,290)#NCRCT 
COMMON /NPJCL/ NPJ,NpJN(l) 

initialization 

PA0B9T.2Q97749 
IF (NMMI.LT,-!) CO TO 19 
DO 2 JatfNP 
2 NPTjrM,J)ae 

INJETal^M 


SEARCH array for POlN^rS TO SE CORRECTED 


/iSRal 

2MLaNSS(M1 

Inn 3 Ja\, 

VxaxPR(J) 


00 4 Mat, ML CRT 0)4 

MSbM CRT 817 

IF (X»K88(H,K)) 12 , 1 S,« CRT 916 

« CONTINUE CRT 019 

50 TO 1 CRT 8R8 

11 IP (K 9 .FQ ,1 .OR, ><s,Eo,KL) GO TO 3 CRT nai 

vGaYSS(M,KS) CRT o «2 

RGaflSS(M|M8) CRT Odl 

AGbASS(M,KS) CRT 044 

CO TO 9 CRT 049 

IP IF (MS,EO,n GO TO 1 CRT 0Q4 

0eLTAa(X*X8S(H,K8«1 1)/(XSS(M,K8)«M8S(H,R8-nT CRT 94? 

YGBY 9 a(“,'^S*n ♦ CYS8(*‘»MS)»Y88(M,MS»in*nELT* CRT 048 


AGaA89(*',K9«n t ( »SS ( h , K S ) - AS8 ( , K S» 1)1 *DEL T A 
BGaB99(H,K9*l ) « ( BS8 ( h , k ) 1 -B8S { H » K 9- 1) ) *DELT A 
9 YlRVGfAG 
VQbYG*AG 

IP (Y.LE.^I .and, Y.GE.yD) GO TO ta 

yIbYT^BG 

vr)aYO*flC 

JP (Y.LE.YI ,anO, y.GI.vo) go TU 19 
60 TO 1 

14 NPTJfM,j)alNjET 
60 TO 1 
19 NPTJ(M,J)tl 

1 continue 

c 

19 IF (NCRCT,6T,S) return 
NFJlaNFj+1 

DO 39 Nil ,NP 

IP (nTImE.LT.-I) CO To 21 
IF {NPTJ(m,n),lT,D 00 TO 39 
21 JSABO 
NSRB2 

FACTORansFACKH, I ) 

NSaNBSfM) 

9Ra»D9(M)/2,0 

D9RbD8(M)*FACTOR 

20 SRrSRaDIR 

921 IF (SR,GT,BI(M,NSn Go TO 3B 

c 

C USE auRFACE BPECIFTCATION to locate vortex rings 

c 

421 IP (9R«99(H,NSRn 421,425,422 

422 N9QaN9R«l 

IF tNBR.OT.Nl) STOP U22 
GO TO 421 
429 86 b68S(h,N3R) 

TH6aT8S(N,N8Rl/RAD 

XCaxSS(M,NSR)»BC*SIN(THG) 

xCNaX9N(P»N8R) 

vCNav9Nt^»N9R) 

ZCNaZ9N(H,N8R) 

X6TaXST(M,NSR) 

VGTBy8T(M,N8R) 

ZGTbZST(k,N8R) 

FACT0RtD9StN,N8R) 

00 TO 30 

423 DELTAB(8R-89(H,N8R«n)/(89(N.NSR).S8(H,N8R«i)) 

IF (N9R«NFJ1) 02«fa2«,427 

027 THGaTS8(N,NSR.l)«(TSS(K,N8R)»TSS(M,NBR«l))*DCLTA 
TMGaTHG/RAD 
CO TO 424 

420 THCPT99(H,(g8P )/PAD 

424 AGBBSS(M,N8R-n»(B9S(M,NSR)«B8S(H,N9R»n)*0ELTA 

XGbxS 9(H, N9R>1 ) f ( X98( M, N9R)ax9S(H.N9R«n 1 *DELTA • 9G*SIN(TH6) 
XGnbx9n(h,n 9R»1 )*(XSNfH,N9R)»X|N(M,N8R*l ))«DELTA 
YGNaY9N(M,N9R»l)*(V9N(M,NSR)«VlN(M,N8R«l))*D|LTA 

26NbZSn;,<,nsr- 1 ] A(Z9N(M,NSR)«r9N(H,N9R«] ) )kOELTA 

X6TaXST(H,NSR«l )*(XSTrH,N9R).x9T(M,vSR«l))a|)FLTA 
YCTaYST(H,N9R,l)f(Y8T(M,NSR)«YST(M,N8R.l n .delta 
ZGTaZ9T(M,v.9R*l ) ♦ ( ZST ( m , MR ) .ZST ( H , N 8R«n ) *npLT A 

FACT(1RbOSS(H,N8R«i ) 

SO continue 

IF (J1A,GT,0) go to 29 
XBAHAXl (XGN,XGT,XG1 
VBX«?,*0SR 

IF (xph(n),ct,x) go Tn 20 

JSAal 

X2aX6Ta2,*BG*SlN(TH6) 

VPbYGT 

22«ZGT*2.*BG*cn8 ( ThC) 

AVZa(yGN«YcT)*(Z2«zGTl - (Y2 «vCT1*(ZGN*ZgT) 
4XZa-(XCN*X6T)*(I2-Z6T) ♦ ( xp.XGT ) * ( ZRN*ZGT1 
4xya(XGN-¥GT)*(Y2-YGT) • (x2-xcT)*(YDN.ygT) 

DTAb8DRT(AYZ*»2 a AXZ**2 4 Axv«*2) 

ftl a ( (XPR(N)»XGT ) «A yZ * f YPR(N J bVGT) *AXZ ♦ ( 7PR ( N ) •ZGT) * AXV ) /RT A 
GO TO ?9 
29 C*^NTINuE 

SNTHbSIn(TmG) 


CRT D49 
CRT 059 
CRT D91 
CRT 052 
CRT 09) 
CRT fl5a 
CRT 055 
CRT 094 
CRT 057 
CRT ASB 
CRT 059 
CRT nor 
CRT 041 
CRT 042 
CRT 04) 
CRT 044 
CRT 049 
CRT 044 
CRT 047 
CRT 049 
CRT 049 
CRT 070 
CRT 071 
CRT 072 
CRT 071 
CRT 074 
CRT 079 
CRT 074 
CRT 077 
CRT 078 
CRT 079 
CRT 080 
CRT 081 
CRT 082 
CRT 09) 
CRT 084 

CRT 089 
CRT 084 
CRT 087 
CRT 088 
CRT 089 
CRT 090 
CRT 091 
CRT 092 
CRT 09) 
CRT 094 
CRT 099 
CRT 094 
CRT 097 
CRT 098 
CRT 099 
CRT 100 
CRT lOt 
CRT 102 
CRT 10) 
CRT 104 
CRT 105 
CRT 104 
CRT 107 
CRT 108 
CRT 109 
CRT tie 
CRT III 
CRT UP 
CRT U) 
CRT ll« 
CRT M9 
CRT 114 
CRT 117 
CRT 118 
CRT 119 
CRT 120 
CRT 121 
CRT 122 
CRT 12) 
CRT 12« 
CRT 129 



CITHbCOKTHC) CKT 

XI■)(0T■{••I6•|MTH CAT 127 

T2»TCT CAT 12§ 

Z2«ZST*2.*16*C|TH CRT {24 

AVZB(YG»<*V8T)ft(Z2«Z6T) • (V2«TGT)*(Z6»J«ZGT) CAT DO 

AXZa»(X6A«X6T)«(22-ZCT1 * (X2*XCT)*(ZGH>ZCT) CAT D1 

AXTB(X6N«XGTlft(V2«TGT) • (X2«VGn«(VaM«VQTl CAT D2 

■TAB|0AT(AVZ**2 ♦ AXZRAZ ♦ AXV**2) CAT D1 

D2A((XAA(N)«XGT)AiYZ ♦ (YAA(N)«YGT)«iVZ « (ZAA(N)«Z6T)«iXY)/ATA CAT D« 

xr (DZ) ISDSD* CAT D9 

30 D1AD2 CAT i3o 

pn TO |[fl CAT D7 

39 DI*AaOD*(D 1«D|) CAT Dt 

XPA(N)aXAA(N) ♦ (D8AA*D1)*CGTH CAT DA 

ZAR(A)aZAACN) 4 (D|AA-Dl)a|HTH CAT {AO 

39 eONTXNUC CAT Dl 

ACTUAN cat 1«2 

2ND CAT 1«1 


AUAAOUTTnC QAXnP (iA|YA«ZA«U^V»W) 

COHAUTE the velocity XNDUCCD IT A CUAOAjCATtAAL VOATEX AIHP 

XCH'iVCAOiZCAQ' AAI COOAblN^ES ~o> cqamea aoxmti in jit SVITCH 

XAfVADA AAE MltD POINT C00AD1NATE8 iN JET lYlTEM 
U>V,M AAE INDUCED VELOCITY COHAONCNTi IN I.Y.Z QIAICTXONS 
NOAmaLIZED HXTH ACIACCT to AXNp ITAENGTH 

CORNON/COANEA/XCAO(«),rCAO(«iiZCAD<A) 

AAlAtl.miTOP 

UaO.0 

Vb«,0 

NbOiO 

XBAflCAOdUXA 

Y8AsVCAQ(l)*VA 

ZBAaZCAO(n>ZA 

eBlQAT(X|At«E 4 VBA«a| ♦ ZeAaaZ) 

on 20 NatfA 

XAPbXBR 

YAAaVBR 

ZApaZlA 

ABB 

HBNT} 

IA(m.PT»«) m«i 
X6RaXCR0(N)*XB 
VBRaYCRfi(N)*yp 

ZBAbZCAQ(N)«ZR 

8a80AT(XBP*fr2 ♦ YBA**2 t ZAA*«2) 

AVZaYAR*ZBR»YBR*ZAR 

axzbxba*zap«xar«zba 

AVVaiAP*YRP«XBP*VAP 
AXB2 bAy2**2 T AVZ**2 * AXY**2 
ADB«XAR»xaP « VAPAYBP * ZAPtZBP 

GKb*(A«B)*( 1«0 • A0B/(AftB)W(AXB2*EPn 

UAUTCXftAVt 

VBV^CNbAXZ 

HBhfGXaAXV 

20 CONTINUE 

AETURN 

END 


BUBROUTInF JETVCL (NTIpI) 


MTIMfaw CALCULATE ADDITIONAL CIRCULATION ON PLAP TO ACCOUNT 
FOR JET TURNING AND CALCULATE VELnCITUl INDUCED 
BY ThIB additional CIRCULATION 
HTIMEB2, CALCULATE INDUCED VELOCITY FIELD FOR FORCE CALC. 

CFjB-1,0 . JET t^ODEL AND JET CIRCULATION VELHCITIEB 
NOT USED IN FORCE CAlC. 

CFja 0.0 , ALL JET VEtOCITIEI UIED IN FORCE CALC> 

CFja 1,0 . JET MODEL VELOCITIEI USED IN FORCE CALC. 

MhEnSION APU90)(UJt|SO)»VJ(290)»RJ(290) 

CDmhon /index/ •<iN»MH,MTOT,NCNniO),IHA*,NM|BDD),USTrrTft1_ 
COMMON / INOEXF/ NFRic.MFLAP'BfIDFLAP(10.21.MC>(lB)»MB>tlQ')»HF(i0), 
lNlTART(lO>«MEND(lO)rNFlEGF(10) 

COMMON /CPDAT/ ALPHAL(290).XCP(29e)«VCPr29B)DCPr2BB)» 

1 CALRHLC290)f8ALPHL(290) 

COMMON /RVFLI/UP>VR»NR 

COMMON /RBIDE/ ClRC2S0)tUEn290)»VET(290),Mn(?90) 

COMMON /XVZCL/ NJCT»NCYL(2)»XQ(2)*YO(2).ZO(2).gaNVJ(2)|DB(2)« 

1 PHO(li»CHU(l).XCLAC2.29)»VCLR(2»l9)iZCLR(2*29)iTHETMI»29)> 

2 ICLR(i.i9)»*JET(2i29)»BJET(2,29)»DIFACT(2.29W 

1 UCL(2*2S). VCLCZrZDf HCL(2»29)f CPJfCFN 

COMMON /CLDAT/ N9lr2}.SSr2«M}iXflC2»n>.YIBf2ilM»rilf2iin* 

1 TiB(2,iniBM(2anixii(2»m»xiNC2*m,YSNt2,in» 

2 ZBN(2*U)»XST(2»U)*Y|T(2»ll).ZIT(2fll).DSS(2<ll) 
COMMON /PTOAT/ NPTJ(2.250)«NCRCT 

COMMON /VLDAT/ NVLPrNVLMOn 
COMMON /rEFOUA/ SSfAn.BREF.REFL.XH.ZM 
^ COMMON /BLDAT/ XBLr290)iYBLC290)*ZBl(290)|TpaiC290),9N(2S01 
COMMON /ATAK/ SINAlF.COBALF 
common /kfJCL/ NFJ.MFJNDJ 

COMMON /JETCXR/ JFlPC 190)*LJFLP. eiRJ(19e).(!Njn9Di,CAJ(19fi) 

COMMON /FLPOAT/ •DFLXZ(10)«CDELXZ(m;VFDO*ie).|PHIFMO)f 
1 CPHIF(IO) 

COMMON /FPNL/NRR(NT|NJPNLiJPNL(30) 

COMMON /JETIFF/ CTaJ 

TRY FORMAT (//IDXDRHSUMHaRY OF JET TURNING FORCtB / 

1 9XlMMDXTMA«EACNl.TX9HGAM/V,SK3HeNJ.4X3MCAJ) 

7«8 FORMAT (IHl.DXfRSHlUHMARY OF TOTAL JET INDUCED VELOCITY FIELD / 

4 F|DXD*HUEI»vei»Rei i VELOCITY COMPONENTB INDUCED BY VQRTEX RING 
BJE* MODEL ^ 2SXfTBHUJ»VJ»Bj a VELHCITV COMPONENTS INDUCED BY J 
CET DEFLECTION LOADING ON FLAPS // 

1 7V3NNCFfrX3NXCP#Rl3HYCP»RX3HZCP*RX2HUJM0X2HVJtl0X2NMjf 

2 10XSMUEIfRX3HVEl»9v3NMEX) 

799 FORMAT (5X|1$»10F12,|) 

data FDURPI/12.9BbS70S2/ 

NPaMTOT 

TF (MTIME»2) !D»90.90 
10 CONTINUE 
LJFLP90 

IF (NJET.ir.O) RETURN 

ADO CIRCULATlnN On FLAPS TO ACCOUNT FOR JEr Tl/RVlNG 

IF (NFREC.LE.O »0R» NFJ.EO.OI RETURN 
IDENTIFY REGIONS OF JET INFLUENCE ON EACH FLAP 
LPO 
Llal 

DO t« JB1 |NJCT 
DO 20 NB) ,KFJ 
lOELtaO.O 
NFaNFjwrN) 

SDELRBDELXZCnF} 

CDELrCDELXZ(NF) 

IF IN.DT.IT 90EURS0tLXZINF»\> 

MBBMSTARTfNF) 

HCaMEND(NF) 

Ajao.o 

DO 21 waHB.ME 

IF (NPTJf J.SJ. lT.I) so to 21 
L*L+1 

AR(L)aS«(>O*R.0*S0Rr((XCPtF)aXBL(Kn*«2 * f ZCP ( M 1 -ZilL ( K n • *2) 

JFLPaiaM 

AjaAj^AP(L) 



s 


2> CO*.Tivijf 

S^O^UaSHFLaSOlLl 

GV8iC“Ut J J*8NDEL*S«eP/( 2. 0»CO8*LF*FnuRPT) •£!*.» 

C»*T»C«l'( J)»8»*Df L*C TAJ 

C C*\.CUl4Tf AOoniUNAL ClfiCUUATta^ Q^. flap PA*jf\.4 
C (wnTf ,,.S*«PAWfL half KinTMj 

no 22 K»L 1 »L 
JKiJFLP(K 1 

CIPJ(K) ■GV8AAP(ft)/(2,0*AjASto(jK) ) 

C^jrK)»CKT*AP(K)/AJ*CnEL 
CAJOOi»CHT*APrK)/AJ*80EL . 

C hOTI,,, CaJOO is NQfluAL FORCE CUEF, I»J FLAP C^O»OTh*TC STSTE** 

C CAJ(X> 18 AlUL FORCE CUtF , IM FLAP cnOROlNAIF 8Y8TE»* 

22 CONTINUE 

u«l*i 

20 CONTINUE 
19 CONTINUE 
LJFLP9L 
C 

C CALCULATE influence oF The ADDITIONAL CIRCOLATIOn 

c 

nLH 

IF (NPRInT.GT.O) write (**79B1 

DP 29 NatfMTOT 

UJ(N]a0,0 

VJ(N)«0.0 

wJ(N)aO.O 

IF (NVlF.LE, 0 ) 6 Q to 129 

28 IF (NaNVL(NL)] 12S|2$,229 
229 NLaNLAl 

IF (NL.LEiNVLFJ 60 TQ 28 
NLbNVLP«1 
129 CONTINUE 
xxaFCF(N) 

YY«YCF(NJ 

2ZiZCF(Nl 

CALL JTCIRV (FY»YY,ZZ.N) 

IF (nFRTnT.GT.O) WRITE IRiTRR) N » XX * VY* ZZi UP « V* t wP< 

I U6X(n),VCI(N),nei(N) 

UEKNlaUEKNltuP 
vei(N)avct(N)4vP 
NEI(NUWEl(N)a«P 
UJ(N)9UP 
vjimavp 
*J(N)awR 

29 continue 

IF (nprint.le»o) return 
WRITE (a,7RT) 
no 2A jalfLJFL* 

NtJFLP(J) 

^ DUNaCiaJ(J)*FauRPI 

tk vRlTE (b«TRR) Nf AP(J),0UM,CNJ(J)«CAJ(JT 

e 

RETURN 

C 

90 CONTINUI 

C _ 

C SET UP JET ASSUCIATEO VELOCITY FIELD FOR USE In Fgact CALC, 

C 

IF (CFJ) 62rP}fP0 

C REMOVE ALL JET INDUCED VELOCITIES From FORCE C*LC, 

82 on 51 Na] ,NP 
UEKNlaO.O 
VEI (NlaO.O 
Met(N)aO,fl 

91 continue 
RETURN 

c 

C "8E JET model induced VELOClTlfS (Jnlv 
* 0 DO 81 N8l«NP 

UEI(N)aUEnN)»UJ(N) 

vEt(N1aVEI(N)«vJ(N) 

MCl(Nlat«FI(N)«pJ(N) 

81 CONTINUE 
pETmrm 
bS CONTINUE 

C INCLUDE JET circulation INDUCED VELOCITIES In FORCE CALC, 


JVL ftTN 
JVL 070 
JVL 080 
JVL OP! 
JVL 062 
JVL 065 
JVL nPu 
JVL 08$ 
JVL 06b 
JVL 087 
JVL 088 
JVL 089 
JVL 090 
JVL 091 
JVL 092 
JVL 091 
JVL 09fl 
JVL 099 
JVC 098 
JVL 09T 
JVL 098 
JVL 099 
JVL 100 
JVL 191 
JVL 102 
JVL 101 
JVL 10« 
JVL 109 
TVL 10b 
JVL 107 
JVL 108 
JVL 109 
JVL 110 
JVL ill 
JVL 112 
JVL 111 
JVL 119 
JVL 119 
JVL lib 
JVL 117 
JVL 118 
JVL 119 
JVL 120 
JVL 121 
JVL 122 
JVL 121 
JVL 129 
JVL 129 
JVL 12b 
JVL 127 
JVL 128 
JVL 129 
JVL tlO 
JVL 111 
JVL 112 
JVL 151 
JVL 119 
JVL 159 
JVL 11b 
JVL 157 
JVL 158 
JVL 119 
JVL 190 
JVL 191 
JVL 192 
JVL 191 
JVL 109 
JVL 109 
JVL tOb 
JVL 107 
JVL 198 
JVL 199 
JVL 190 
JVL 191 
JVL 192 
JVL 151 
tVL 159 


RETURN 

END 


JVL \S9 
JVL 15b 



SUBROUTINE JTCIRV ( * Jl » VT » ZZ » N J 

CALCULATF induced VELOCITIES AT POINT XX.YY.ZZ DUE TO 
JET CIRCULATION VORTICES tMPANEL ^IJM9FR) 


CDHMDN statements 

COMMON /tLD*T/ XTr«(Jn)>«UL(J01.»TL»(J50)i»TLII(850),rTl.»(i5in. 

I »TU(l50)iYTLLt85(l).ZTLL(l501 

COMMON / INDEXfX NF8fP,,NrLiPSiID»L*Kl0,l).NCK10),Mjrtl0)t"F(in), 

IM8U«T(lll1."ENDnO)«NFSESF(10) 

COMMON /FLFOAT/ SDILXZ 1 1 0 ) , CDEL«Z II 0 ) » YF t JO, 1 !i ) , IPHIF 1 1 01 p 


ICFHIF(IO) 
coH**nN /vxkdatf/ 

1 


Xx«cRF(10,2»IQ>»VNKRF(9Q,2,ini,ZkKRF(TO,2.lO) 
XHKLf rlO,2,10)fY»KLF(10»2*10UZMKLF(10i2»10I 


CnHMDN /RVFL8/UP»VP»MP 

COMMON' /FLVFRG/Xl » Y1 , Z 1 , X2 , V2 » 22 » «P* YP , ZP»FtJ , Fv , F« i AX ^ AZ 


COMMON /NFJCL/ NFJ»NFJN(J) 

COMMON /JETCIR/ JFLF(l501,LJFLFf C I RJ ( 150 ) , CNJ (1 50 ) , C A J t 1 50) 


XPaXX 

YPtYY 

EPaZZ 

UPaO.O 

VPaO,0 

nPaO.O 

iFLAGaO 

IF (ljflp.le.o) return 

jSbwfjnM )_ 

JtaNFJN(NFJ) 

mS8HsTaRT(J8) 

MEaMCNMJE) 

IF (N.CE,NS ,ANO, N,LC,ME) IFLAGal 
JPNaO 

IF MFLAG.EO.OI go Tn 100 
IDENTIFY FLAP number (JPNj containing panel n 
DO 155 Hal ,NFJ 

JPNINFJN(X) 
mSbhsTART r JPN) 
wEaHENOIJPNi 

IF (n.cE.mS ,AN0, N,LF,**E) on TO 100 
159 continue 
STOP 19 

IDO continue 


DO 220 JalfLJFLP 
JPaJ 

laJFLPf J) 

IF n.EO.Nl CD TU 220 

IDENTIAY flap number (JFl) CONTAINING PANEt. I 
DO 150 xal,NFJ 
JPlawFjsm) 

MSlMSTARTf JFI) 

HEaMFNOf JFI) 

JP (I,RF,mS .and, I.lE.-M 60 TO 152 
190 continue 
STOP 11 

192 COxZaCOELXnjFn 
SOxZaSDEl.vZf JFn 
IFUajFT 

HAFTaNFSfGF(JFI) 
msffimsmjt n 


JC» 001 
JCR 002 
JCP 081 
JCR 009 
.ICR 005 
JCR 006 
JCP 007 

JCR 008 

JCR 009 
JCR 010 
JCR Oil 
.ICR 012 
JCR Oil 
.!C« 019 

JCR 018 
JCR 01ft 
JCR 017 
JCR 018 
JCR Ol« 
JCR 020 

JCR 021 
JCR 022 
JCR 02J 
JCR 029 

JCR 029 
JCR 02b 
xlCR 027 
JCR 02H 
JCR 029 
•ICR 0^0 
JCR Oil 
JCR 032 
JCR Oil 
JC» OlM 
JCR OJS 
JCR olft 
ICR 057 
JCR 018 
JCR 019 
JCR 090 
JCR out 
JCR 092 
JCR 991 
JCR 099 
JCR 099 
JCR 096 
JCR 097 
JCR 0tl8 
JCR 099 
JCR 090 
JCR 051 
JCR 052 
.1C« 051 
JC» 09 « 
JCR OSS 
JC» 05b 
JCR 057 
JCR 058 
JCR 059 
JC» obo 
JCR ob\ 
JCR 062 
JCR ObS 



o> 

(II 


NCFfiNCrrjFi) 

C LOCATF *n« ris«) C0sTM»iT>j6 PANFL I 

DO 197 TS»>Fal(MSFF 
I9i^«tS'*F 

MSLBH9t(T9«*l U^CFF 
M3T«HSl.**«CPF-| 

(T.CF.MSL I.LE.MST) fiC TO 199 

197 COMINUE 
ITdF 19 
191 CO^TI^^UE 

e 

e !NFLUE*<Ce OF BOU^D LE6 

ItO xlBXTLLd) 

Vl«VTLL(n 

ziiZTurn 

l2iXTL*(T) 

Yl»VTL»(!) 

Z2iZTL«(!) 

CALL ^LVF 
Cl'PFU 
CViFV 
CHaFN 

e 

IF (nAFT,mC, 0) 60 TO 21tt 

c 

C NO FLAPS NEHINO THIS ONE. COMPUTE INFLUENCE OF 9EH|>IaiFINITE 

c trailing legs in The plane of this flap 

C‘ 

AXi«COvZ 
AZaSDXZ 
call SIVF 
euicuAPu 

CVbCV^FV 

CNbCw^FN 

XlPXt 

vlPYE 

EtaZE 

call SIVF 

CUaCUaFU 

CVaCV«FV 

CH8Ch«Fh 

60 TO 2U 
C 

e there are flap* SEhIns THIS ONE, compute influence of 
e FINITE TRAILING legs in ThU FLAP 

e 

21i XlaXTLRfl) 

TlaVTLRtl) 

ZltZTLRd) 
x2aXttKRFCl8H«l»IFL) 
r2RVHKRF(I8»f IflFL) 

Z2h2hrrf(I|f,||1FL1 
call PLVF 

CUbCUaFU 

CVaCVAFV 

CaaCBAPa 

XliXTLLri) 

YIbvtllM) 

ZlaZTLLin 
X2aXH9LF(I|Mf 1,IFL) 

T2BVHi«LFn8«»l,IFL) 

Z2BZaXLFnSX(l*IFLl 

call flvf 

rUaCU>FU 

CVaCvaFV 

CHaCWaFM 

AFTUa0,0 

AFTVaO.O 

AFT-raO.O 

IA(N4FT,E0,n GO TO 210 
C 

C INFLUfNCt OF finite TQATLiNr. LtG 8 FIRST FLAP AFT OF ThJS 

c 

xlaX«KaF(l8H«||IFLi 

vlavH<BF(j8*,i,iFLl 

Zla2WKRF(rs*»l,IFL) 

X2aX*XRFM8-»2ilK) 


JC» 

080 

JCR 

085 

JCR 

088 

.ICR 

08T 

JCR 

08R 

JCR 

089 

JCR 

070 

JCR 

071 

JCR 

072 

JCR 

079 

JCR 

070 

JCR 

079 

ICR 

078 

JCR 

077 

JCR 

079 

JCR 

078 

JCR 

080 

JCR 

081 

JCR 

082 

JCR 

069 

JCR 

080 

JCR 

089 

JCR 

088 

JCR 

087 

JCR 

088 

JCR 

OBR 

JCR 

090 

JCR 

191 

JCR 

092 

JCR 

093 

JCR 

09<l 

JCR 

099 

JCR 

098 

JCR 

097 

JCR 

098 

JCR 

099 

JCR 

100 

JCR 

101 

JCR 

102 

JCR 

109 

JCR 

106 

JCR 

109 

JCR 

108 

JCR 

107 

JCR 

108 

JCR 

109 

JCR 

110 

JCR 

111 

JCR 

112 

JCR 

119 

JCR 

110 

JCR 

119 

JCR 

118 

JCR 

117 

JCR 

118 

JCR 

119 

JCR 

120 

JCR 

121 

JCR 

122 

JCR 

129 

JCR 

120 

JCR 

129 

JCR 

128 

JCR 

127 

JCR 

128 

JCR 

129 

JCR 

150 

JCR 

191 

JCR 

192 

JCR 

199 

JCR 

130 

JCR 

139 

JCR 

158 

JCR 

157 

JCR 

159 

JCR 

139 

JCR 

too 


/2»Yt.x#Ff T8-,2,1FU 
Z2 bZi»«RF(IS«*2.IfL) 
call Flva 

AF TUaAFTUAFU 
AFTVbAFTv^FV 
AFT«>aAFT**A « 

xlaxuKL^ nS"»l,lPL> 
vlaY-<L^tT8*,MELJ 
Z18 Z-klF[I8-,i,IFL) 

X2aX»KLFtI8»-#2|IK) 

v2BTHXLFnS*»2,IPL) 

Z2aZF«LMTSH|2,IPLl 
CALL FLVF 
aFTObAFTupFU 
4FTVbAFTV«FV 
AFT.<B4FTNaF>t 

c 

C cn^TRHi/Tin«i nr StHl-iRri-giTt TRriuxs ircs i- srcn-D rur 

210 Fl8X«M(RF(lS»«NAFTfIFLI 

»laY*XRr(I8arNAFT,tPL> 

Z1bZhkrf(IS^,N*FT,IFL1 

nFbIFLtNAFT 

AXa.cnFLXZtNF) 

aZbSDFLXZ(nF) 

CALL SIVF 

aftubaftu«fu 

aFTVbAFTv»FV 

AFThbAFTh-Fh 

XlaXHKUFriS-»NAFT»lFL1 

yiBV-KLFM8*»N*FT,rFU 

ZUZii<LF(rS»»NAFT»lPU 

call SIVF 

AFTUbAFTU+FU 

AFTVbAFTVaFV 

AFTMbAFTh^Fh 

c 

CUbCuaaftu 
C vaCv*AF TV 
C*BC*AAFTH 
218 vSb CtPJ(JP) 

UPPUPACUavS 

VPflVPTCVaVS 

h,Pawp«CH*V8 

220 continue 
RETURN 
END 


JCR 

loi 

JCR 

102 

ICR 

105 

JCR 

106 

JCR 

105 

JCR 

108 

JCR 

107 

JCR 

108 

JCR 

109 

JCR 

190 

JCR 

191 

JCR 

192 

JCR 

195 

JCR 

ISO 

JCR 

199 

JCR 

198 

JCR 

197 

JCR 

198 

JCR 

159 

JC» 

180 

JCR 

Ibl 

OCR 

182 

JCR 

185 

JCR 

180 

JCR 

189 

JCR 

t8p 

JCR 

107 

JCR 

188 

JCR 

189 

JCR 

170 

JCR 

171 

JCR 

172 

JCR 

17J 

JCR 

170 

JCR 

179 

JCR 

178 

JCR 

177 

JCR 

178 

JCR 

179 

JCR 

180 

JCR 

IBl 

JCR 

162 

JCR 

165 

JCR 

186 

JC» 

189 

JCR 

188 

JCR 

187 


subroutine FVNPUT fA,M,Niji»iT,TP> 
DIhCNSIPN AtW,N),lP(N) 

•RITE fNUNin A, IP 

RETURN 

END 


Fl)T ftOl 
FOT 00? 
FOT nni 
FOT OOtt 
FOT 005 



SUBPnUTI»JF (AfM«MUMIT,JP) 

OiMfNSlON 

RFAO (KUMTJ A,JP 

®f TURM 

E^O 


FI*^ 001 
Fist 00? 

FI^ OOS 
FI** onu 
FIW OOS 


c 


c 


SUBROUTINE UVHOUT 

COMMOSt /INDEX/ ►■S»',»'»»,MTOT,NCi'mO)*l**AT,NFSEC(5rt)»LASTKJO) 
COMMON /RSIDE/ CIR(?9O),UEI(?50 ).vEI(2S0)«wei(2S0) 

COMMON /XYZCL/ Nj£T»NcyL(?)»X0(?)»V0(2), G*Mvj(2>,n9(?)» 

1 RHn(?),CMUI?),XCLR (1,25 ), vCLR(?»25),ZCLR(2»?5>. theta (2,25), 

I BCLR(2,25),AJET(2,29),bJET(2,29),05FACT(2,2S), 

1 UCL(2,25)# VCL(2»2S), mCI.(?,25), CFJ,CFk 

common /CLOAT/ »<8d(t),98(2,U)»X8l(ifll),y89(2,n)»Z8S(2in)» 

1 TS9r2,in,B98(2#ll).A9S(2,m,x9N(2,n),YSN(2,in, 

2 ZS»*(2>ll)«X9T(2,U),V8T(2,ll),7ST(?,in,D9S(?,in 

common /VLOAT/ NVLP.MVLdOn 

mRITE (R) NJET,nCVl,N9S,X0,VQ,ZQ,GAmvJ,09,RM0«Cmij,LEI,VFI,mEI, 

1 UCL,VCI.»MCl,98«X89,V89»Z88»T8S*88S»A8S»')SS* 

2 X9N,Y|N»Z8N,X9T»Y9T,Z8T«XCtRfVCt.R,ZCLR»TNETA, 

S AJCT,8JtT»08FACT,8CLRfNV|.P,NVt 

RETURN 

END 


DOT POl 
DOT 002 
HOT OOS 
U[)T OOR 

dot 005 
DOT 006 
UOT 007 
UOT 008 
UOT nOR 
UOT 010 
UOT Oil 
DOT 012 
DOT 01 S 
UOT OIR 
UOT 015 
UOT 016 
UOT OIT 
UOT 018 
UOT OIR 


C 


c 


SUBROUTINE UV«IN (KCt) 

COMMON /index/ M 8is,HN,MTOT,NCMl(30),lHAV,NFSEC(Sin,LAaTF(S0) 
COMMON /RSIOE/ CIR(250)«UEI(250),VEt(250),MET(?50) 

COMMON /XYZCL/ NJCT,NCYL(2),XO(2)>Vq(2),ZO(2),CAMvJC2),OS(2), 

1 RH0(2),CHU(2),ACLR(2,25),vCLR(2r25),ZCLRr2,25)«TMerA(2,25), 

2 8CLR(2,25),AJET(2»251,8J£T(2,25),08FACT(2,25). 

S UCl( 2.25), VCL(2,2S), wct(?,25), CFJ,CFM 

common /cuoAT/ Nss(2),s9(2,m,/8s(?,in,vssr?,in.zss(?,ii), 

1 TSS(2,in,BS9(2,in,A98(2,ii 1,Y9N(2,1 n, VSN(2, 1 n , 

2 ZS»U2*in*K8T(2,in,V9t(2,m,79T(2,l n,D99(2,in 

COMMON /VLOAT/ NVLRfNVLdOt) 

READ (tt) NJ£T,NCTt,N9S,*0»YR,ZO,CASvj,09,RH0,C'*U,UFI,vEI,«El, 

1 UCL,VCL#*iCL,89,v99,v 99,Z89,T99,RSS« A99,09Si 

I XSn,ySn,Z3N.XST,YST,ZST,iCLR, YCLR* ZCLR, theta, 

1 AJCT.HJET,D8FACT,9CIR.nvLP,nvl 

RETURN 
END 


UIN POl 
IJIN 002 

IJIN P05 
UlN 00(1 
UtN 005 

DIN 006 

UjN 007 
UlN 008 
IllN OOO 
i;IN 010 

DIN on 

IJIN 012 

DIN on 

DiN OU 
DIN 015 

Ulw olo 
UlN 017 
UlN 018 
UlN OIR 
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TABLE I,- TYPICAL EXECUTION 



























































































Figure 1.— Concluded. 
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oooooooriooo 


PROGRAM ll8BMAlw(INPUT,ni.'TPUT,1APfc5»IlyPUT,T*Pe68nUTPiJT,TAP&U,TAPF.6) USR OOT 


COMMON FVMn8il96) U8R 002 
CALL use U80 005 
STOP USB OOa 
EMD USB 005 


subroutine U38 


USB OOt 



ADD CORE AREA FOR INFLUENCE COEFFICIENT MATRIX 
IF PEQFL IS NOT available » RFMOVt THIS SFCTION AND' INCREASE 
THE OlMENSIOMvS OF FVN IN blank common, above, TO mtoTaMTQT 


where MTOT r TOTAL NUMBER OF VORTEX PANELS ON wiNC AND FLAP 
IFL9»0 

call REQFLlIFUBI 
LFL«IFl_8 + MTnT*MTOT-l 

call REDFLCLFL) 



USB 195 
USB 196 
USB 19T 
USB 198 
USB 199 
USB 200 
USB 201 
USB 202 
USB 205 
USB 204 
USB 205 
USB 206 
USB 20T 


RETURN U8BA421 

END USB 422 


Figure 2.- Alternate card decks defining program USBMAIN 

and subroutine USB. 
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05 


ITEM 1 

FORMAT 

5 

INHEADI 

(15) , 1 card 

10 15 20 25 

NFVN 1 NUNITI NFPTSINPRINtI 

(MAIN) 1 

[. I 1 


I _ 1 I 1 

ITEM 2 

FORMAT 

(20A4) , NHEAD 

cards 


TITLE 




(main) 


ITEMS FORMAT (6F10.0), 1 card 



^ SREF 

^ ^ REFL 

XM 

|31 

ZM 

41 

^ ETAJ 

(MAIN) 

F 

F 

F 


F 

F 

ITEM 4 

FORMAT 

(15) , 

, 1 card 





(WNGLAT) 1 

5 . 

NWREG j 







ITEM 5 

FORMAT 

(3FlO. 0) , 1 card 





(WNGLAT) 

1 

1 CRW 1 

11 

1 SSPAN 1 

21 

1 PHID 

31 


- 



1 F 

1 F 




ITEM 6 

FORMAT 

(515) , 1 card 





(WNGLAT) 

5 

NCW 1 

10 

MSW 1 

15 2Q 

INTCW 1 NUNI 1 

25 

NPRESWI 




I 1 

I 

1 I 1 iJ 

“I 1 




ITEM 7 

FORMAT 

(3F10.0,I5), MSW 

+ 1 cards 


^NFSEG(I) 

1 

^ Y(I) 

1 

^^PSIWLE(I) 1 

PSIWTE (I) 1 


36 

1 

1=1. MSW + 1 


(WNGLAT) 


{ a ) Page 1 . 

Figure 6.- Input forms for USB prediction program. 







OMIT ITEM 8 IF lilTCW = 0 


ITKM 8 
(WN6LAT) 


FORMAT (SfIO.O), NOW values, eight per card. 


^ ALPHAL(l) 

ALPHAL(2) 

2i 

1® ^ALPHAL(NCW) 


F 

F 

F 

F 






c 





/ 





J 


NCW values per card. 

1 card if NTCW = 1 and NUNI = 1 
MSW cards if NTCW = 1 and NUNI = 0 


OMIT ITEMS 9. 10. AND 11 IF NWREG = 1 

If NWREG > 1, repeat items 9, 10, and 11 in sequence NWREG - 1 times. 


ITEM 9 FORMAT (215) 
1 IIN IOUT*°| 

( WNGLAT ) 1 I I i 1 


ITEM 10 

\ 

FORMAT (315, 

5 10 

■ NCW ( NTCW 1 

2F10.0) 

15 16 

NUNI 1 

CIN 

1^ TESWP 

36 

J 

(WNGLAT) [ 


I 1 

F 

_P 

J 


OMIT ITEM 11 IF NTCW = 0 


ITEM 11 FORMAT (SFIO.O), NCW values, 


(lOUT - IIN sets of cards if NTCW = 1 and NUNI =0 
eight per card. jOne set of cards if NTCW = 1 and NUNI = 1. 


(WNGLAT) 

^ ALPimL(l) 

ALPHAL(2) 

ai 

® ALPHAL(NWC) 

4 1 

F 

F 

F 

F 

L 





I 





r 


NCW values per card. 

1 card if NTCW = 1 and NUNI = 1 

lOUT - IIN cards if NTCW = 1 and NUNI = 0 


ITEM 12 FORMAT (15), 1 card (O^NIDF^S) 

5 10 15 20 25 

INFREG I NIDFCDFd). 1 = 1. NIDF I 
(MAIN) I I III I I if i I 

If NFREG = 0, omit items 13, 14, 15, and 16. 

NFREG>0, repeat items 13, 14, 15, and 16 NFREG times (0^ NFREG^ 10) 

(b) Page 2. 

Figure 6.- Continued. 


•si 

■si 





•vl 

CD 


ITEM 13 FORMAT (315), 1 card 

5 10 15 



^INREG 

IIN 

lOUT 


(FLPLAT) 

I 

I 

I 


ITEM 14 

FORMAT (415) 

, 1 card 


5 

10 

15 

20 


NCF 1 

NTCF 1 

iNUNI 1 

NPRESFi 

(FLPLAT) 

I 1 

_TJ 

1 I 1 

f I 1 


NOTE: More than one set of items 14,15, and 16 may be 

required by NINREG on item 13. 


ITEM 15 FORMAT (5F10.0), 1 card 

1 11 a 1 


ai 


* 1 


GAPIN 

CRFIN 

GAPOUT 

CRFOUT 

DELXZ 

F 

P 

F 

F 

F 


(FLPLAT) 


OMIT ITEM 16 IF NTCF =0 


ilOUT - IIN sets of cards if NTCF = 1 and NONI = 0 
ITEM 16 FORMAT (8F10.0), NCF values, eight to a card. )One set of cards if NTCF = 1 and NUNI = 1 


(FLPLAT) 


^ ALPHAL(l) 

ALPHAL(2) 

. 

3 1 

ALPHAL(NCF) 

4 1 

F 

F 

F 

F 

P 









- 





NCF values per card. 

1 card if NTCF = 1 and NUNI = 1 

lOUT - IIN cards if NTCF = 1 and NUNI = 0 


OMIT ITEM 17 IF NFPTS = 0 


ITEM 17 FORMAT (3F10.0), NFPTS cards 


(MAIN) 


1 11 ai 


XFPT 

YFPT 

ZFPT 

F 

F 

F 

















31 


NFPTS cards 


(0^ NFPTS ^ 50) 


ITEM 18 FORMAT (15), 1 card 



(c) Page 3. 
Figure 6.- Continued. 


(MAIN) 






Item 19 through end repeated NRHS times. 


ITEM 19 FORMAT (FIO. 0,615), 1 card 
(MAIN) 


1 

1 ALFA 

KJET*' 

20 

KEI 

KUNI'f 

NLOAl? INJPN “ 

40 

MFRC 

45 

NCFJ 

50 

NTLF 

55 

NFJ 

50 65 70 

lNFJNa)NFJNr2^ 1 NF JNf3V 


l._ F 

I 

I 

I 

—I 1 I 

I 

I 

I 

I 

_i j i_J I 

- ZV" 1 


OMIT ITEM 20 IF NJPNL = 0 
ITEM 20 


5 10 15 20 25 30 35 M 


(NJPNL ^30) 


If KJET = 1 . include items 21 through 25. 


ITEM 21 


(JET) 

1 NHEAD 1 

10 

NJET 

15 20 

NVLP NCRCT 

1 “i 

PPRINT 

L_i 1 

i_ 

L_i I 

[ I 1 


ITEM 22 FORMAT (8A10) , NHEAD cards 


(JET) 


TITLE 

nr~ 


Items 23 and 24 are repeated NJET times. 


ITEM 23 
(JET) 


1 'n -21 31 -lA 51 El- 35 


CMU(J) 

RHO(J) 1 

XQ ( J) . 

YQ(J) 

ZQ(J) 1 

DS(J) NCYL(J)i 

F 

F 1 

_F_ L 

F 

F 1 

F 1 T 1 


(d) Page 4. 


Figure 6.- Continued. 

•sj 

(O 





ITEM 24 


(JET) 


FORMAT (7F10.5), NCYL cards 


10 20 30 W 50 60 


XCLR(J,N) 

YCLR(J,N) 

ZCLR(J,N) 

AJET(J.N) 

BJET(J,N) 

THETA (J,N) 

DSFACT(J.N) 

F 

F 

F 

F 

F 

F 

F 























) 


NCYL ( J) 
cards 


OMIT ITEM 25 IF NVLP = 0 


ITEM 

(JET) 





END OF DATA 


{ e ) Page 5 . 


Figure 6.- Concluded. 




(ITFM) 

(1) 

( 2 ) 

( 3 ) 

(4) 
V>) 
( 6 ) 


SiwPLe PUN U32 


( 7 ) 


( 8 ) 


( 12 ) 

( 13 ) 

( 14 ) 

( 15 ) 

( 14 ) 

(15) 
( 14 ) 

( 14 ) 

U'3) 

( 14 ) 

( 15 ) 

( 13 ) 

( 14 ) 

( 15 ) 


( 17 ) 


212,9 


6.42 


-2,48 

1.37 

a. 29 


17.9 


• 0 


9 

ia 

1 

0 

1 


r 0. 


0,0 


•10,71 

0 

•1. 


0.0 


-10.71 

6 

•1.79 


0.0 


•10,71 

0 

-2.19 


0,0 


•10.71 

3 

-3,220 


0,0 


•10,71 

S 

•A.2A0 


0,0 


-10,71 

3 

•9,27 


0,0 


•10,71 

3 

•a, 09 


0,0 


-10. 7J 

3 

( *9,430 


0.0 


-10.71 

3 

•a.iao 


0,0 


-10.71 

2 

•9,900 


0,0 


■10,71 

2 

•lo,a5Q 


0,0 


•10.71 

2 

-i2,iao 


0.0 


-10,71 

2 

*13,9 


0.0 


•10,71 

1 

• 14, a 


0,0 


•10.71 

i 

• ia,2 


0,0 


-10,71 

1 

1 •17,9 


0,0 


•10,71 

1 

^ 0,0908 


o,o5oe 


0,0506 

0,0506 

0,0480 


0.0480 


0,0480 

0,0440 

0,0480 


o,04ao 


0,0460 

0,0460 

0,0440 


0.0440 


0,0440 

0 0440 

0.040S 


0.040S 


O.OUOS 

0.0405 

0,0^79 


0,0379 


0,0375 

0,0375 

0,0390 


0,0350 


0,0390 

0.0350 

/ 0,0320 


0,0320 


0,0320 

0.0320 

0,0247 


0.0247 


0.0287 

0,0287 

0,0204 


0,0244 


0,0244 

0,0244 

0,0202 


0,0202 


0,0202 

0,0202 

o.oiao 


o.oiao 


0,0160 

0,0160 

0,0114 


0.01 ia 


0,0118 

0,01 ta 

0,0076 


n,oo7a 


0.0076 

0,0076 

0,0033 


0,0033 


0,0033 

0,ft033 

-0,0009 

« 

0,0009 

« 

0,0009 

•0,0009 

3 

3 

3 

9 

13 


3 

3 

9 




2 

0 

0 

1 



0,0 


1,026 


o 

• 

o 

0,86 

2 

0 

0 

1 



0,0 


1,026 


0,0 

0.86 

2 

0 

0 

1 



0,0 


1,026 


0,0 

0,46 

2 

9 

13 




2 

0 

0 

1 

. 


0,1 1 


l.li» 


0,088 

0,99 

2 

0 

0 

1 



0,043 


],ia 


0,066 

0,92 

1 

13 

17 




1 

0 

0 

1 



0,03 


1.09 


0,03 

0,74 

•3,12 


• 3,73 


-.029 


• 5.12 


-i,73 


-.05 


-3.12 
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-.10 


•3,12 


• 3,73 


• .20 


• 3^12 


• 3,75 


-.30 


< -3;i2 


-3,73 


•.40 


• 3.12 


• 3,73 


-.50 


-3.12 


• 3,73 


-.55 


•3,1? 


•3,73 


-,57$ 


-3,'lf 


•3.73 


•,60 


• 3,12 


-3.73 


-.70 


-3,12 


-3,73 
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O.OQOUO 

•1.35820 

• 12,83000 

0,0000ft 

• 2,70711 

,67000 

,01160 

63 

• 1,72096 

• 12,63000 

0,('000o 

• 2.10286 

• 12 , 830«0 

0,09000 

- 0 , 8*070 

,67000 

, O | l 80 

ftU 

•2,08523 

• l2,81'^oo 

A.ooonc 

- 2, 06797 

• I 2 , 9500 « 

o.nonoo 

-», 0085 * 

,67000 

,01180 

63 

•3,26991 

• 1 2,6 ioflfl 

^,000•)0 

• 1.65226 

• 12 . H 300'1 

o,noooft 

-*,15269 

,67000 

,01180 


(c) page 3. 

Ow 

(II Figure 8.- Continued. 



^6 

•.17864 

•16,15000 

»0'‘ 

•.536'‘7 

•16,1500V 

n.OflOOO 

56181 

,651100 

,0076'' 



•lo.isooc 

0 , r, <*, 0 (* rt 

•1 ,25082 

•16,15000 

0,00000 

•2,70711 

,65000 

,007b0 

66 

•1 

-i6,i5ftor 

f • 

-1 ,96557 

•16, 15000 

0,00000 

, 8b67n 

.kBiIOO 

. 00760 

64 

•Z.ipgoi 

■16,15000 

'‘,00000 

•?.68'‘13 

•16.1SOOO 

O.OOOOO 

•7.0U656 

,6S*)00 

,00760 

70 

•1.03771 

•16,15000 

O.rtnOO'* 

•3,39508 

•16,15000 

0,00000 

•9,13284 

,65000 

,00760 

71 

•.16S4? 

-15,50000 

A , onooo 

•,69777 

•15.50000 

0,00000 

•,5ul9l 

,70000 

,00330 


-.82461 

• 15,5000'' 

O.OPOon 

•1.16166 

-15.50000 

0,00000 

•2,7071 ! 

,70000 

,00330 

73 

•1.04330 

•15,50000 

r.ooooo 

• 1 .*2516 

•15,50000 

o.coooo 

•4,86670 

,70000 

,00330 

70 

•2.15699 

•15,50000 

O.noOOO 

•2,68AA$ 

•15.50000 

0,00000 

-7,00856 

,70000 

,00330 

76 

•2.62068 

•15,50000 

0,00000 

•3.15252 

■15.50000 

0,00000 

-9,13289 

,70000 

,00330 

76 

•,15316 

•16.85000 

0,00000 

•.65967 

•16,85000 

o.oOOOP 

-,54161 

,65000 

• ,l‘0')4ft 

77 

-.76578 

•16,85000 

0,00000 

•1.O7209 

-16.85000 

0,00000 

•2,7071! 

,65000 


76 

• 1 .37840 

■16,85000 

0.00000 

• 1 .68671 

•16.85000 

0,00000 

-6,86470 

,65000 

• , 00040 

74 

•1.99102 

•16,85000 

0,00000 

•2.29716 

•16.85000 

(1,00000 

■7,00656 

,65000 

• ,00040 

AO 

•2.60365 

•16,65000 

0,00000 

•2,90996 

•16,85000 

0,00000 

•9,13289 

•65000 

••00040 



>R£61DN 1 FLAA 

1 DATA *1 


n 





VOATf X 

• CnP9DI»<ATES 

HF hOuxD LE6 

MIDPOINT 

•— COOROINATES 0* control 

PPlNT-»» 

B.L, St'EEP 

half** lOTH 

AUPPACE 

NUMBE* 









SLf'PI 

J 

XBUJ) 

TBL(J) 

ZHL(J) 

XCPfJJ 

vcp(J) 

rcPtJ) 

PSI(J) 

S^tJ) 

alPhal(J) 

B1 

•6.00148 

•1,47000 

,02668 

•6,25111 

•1.47000 

,07443 

•10,69925 

,22017 

0,00000 

AI 

•6.50025 

•1 .47000 

.13234 

•6.76914 

•1.47000 

•18534 

•11,59966 

,22017 

0,00000 

S3 

•5.86003 

•2,70500 

,02565 

•6.10324 

•2,70500 

,07756 


•51540 

0,00000 

BO 

•6.36656 

■2,70500 

.12427 

•6,58482 

•2.70500 

,18048 

•1 1 ,59966 

,51560 

0,00000 

AS 

•5.66207 

-3,73000 

,0244a 

•5,84714 

-3,73000 

,07445 

•10,69925 

,51034 

0,00000 

A6 

•6,13222 

-J, Jjnoo 

.12442 

•6,36724 

•3,73000 

,17488 

*11,54966 

,51034 

0,00000 

A7 

•5.66U12 

•6,75500 

.02411 

•5,64100 

•6,75500 

,07236 

•10,69925 

,51560 

0,00000 

66 

-5.41786 

•6.7S500 

.12056 

-6.146T6 

•6.75500 

.16874 

-1 1,59966 

,51540 

o.ooooo 

A4 

-5.2A913 

•5,66000 

,02334 

•5.50894 

•5.66000 

,07003 

•10,69925 

,34030 

0,00000 

40 

•5.72A66 

•5,66000 

.11672 

•5.96829 

•5.66000 

•1636} 

•11,59966 

•34030 

0,00000 

41 

•5.13664 

-6,uaooo 

,02268 

•5,35211 

■6,66000 

.06605 

-10,69925 

,34030 

0,00000 

42 

•5,56553 

•6,46000 

,11341 

•5,77845 

•6,64000 

.15877 

-11,59966 

,34930 

0,00000 



•region 1 FLAP 

2 DATA * 


2) 





VQ4Tf X 

•CQGADINAUS 

OF BOUND LEG 

MIDPOINT 

•••COnAOINATES OF CONTROL 


B,L. ShEEP 

HALF»4lOTH 

SURFACE 

NUH0C4 









SLnPt 

J 

XBL(J) 

vHirj) 

ZBL(J) 

XCFCJl 

vCP(J) 

ZCPtJl 

PSKJ1 

5-(J) 

ALPMiL(J) 

4} 

•6.44203 

•1,47000 

,25453 

•7,22814 

•1,47000 

•35644 

•U.'ISIS 

»22068 

0,00000 

46 

•7,46635 

•1,47000 

.45036 

•7,70058 

•1,47000 

,54577 

•12,60576 

,22064 

0,00000 

45 

•6,82675 

•2,70500 

.25341 

•7,05713 

•2,70500 

,30658 

•1 1 ,91515 

•51651 

0,00000 

46 

•7,28742 

•2,70500 

,‘iiiu 

•7,51851 

•2,70500 

,53240 

•12,80576 

.51651 

0,00000 

47 

•6,54626 

•3,73000 

.24468 


•3.75000 

,33641 

-11,41515 

•51144 

0,00000 

46 

•7.00164 

•3.73000 

,42643 

•7.26472 

•1.73000 

,51646 

•12,80576 

,51144 

0,00000 

44 

•6,36576 

•4.75500 

,23615 

•6,58080 

•4,75500 

,32326 

•11,41515 

,51651 

0,00000 

loo 

•6,79566 

•6,75500 

.61013 

•7,01092 

•6,75500 

.64702 

-12,80576 

•516S1 

0,00000 

IM 

•6.16222 

•5.66000 

,22881 

•6.37062 

•5,66000 

.31243 

•U. 41515 

,34iia 

0,00000 

102 

•6,57863 

•5.66000 

,34706 

•6.78686 

•5,66000 

,48118 

•12,80576 

•3411U 

0,00000 

lOS 

•5,48681 

•6,66000 

,22232 

•6.18911 

•6,64000 

,30405 

•11,41515 

•34114 

0,00000 

106 

•6.34160 

•6,66000 

.38574 

•6.54170 

•6,44000 

,46752 

•12,80576 

*34114 

0,00000 


(c) Page 3, continued. 
Figure 8.- Continued. 





( 5 ) 


vnuTE* 

•codrotnates 

OF qiJinin leg 

MlOPUlNT 

•.•ConeniMATEs Of C‘i'’9nL 

POINT- — 

8,L, S-EEP 

HALF--IOTN 

surface 

N'JwilEfi 









9LURE 

J 

XPLfJJ 

v*lLf J1 

ZbLijy 

XCR(J1 

YfRCJ) 

7CP(J1 

PSl(J) 

6*(J) 

ALRhal(J) 

105 

•7,42656 

•1.47000 

,66096 

•6,14256 

•1.97000 

,79591 

•12.T2527 

,22190 

0,00000 

106 

•6.55H58 

•1,97000 

,93091 

•6.57056 

•1,97000 

1,06588 


.22190 

o.nnoofl 

lOT 

•7,73926 

•2. 70500 

,64538 

•7,95ni7 

•2.70500 

,77717 

•12,72527 

,51652 

0,00000 

106 

•6,16106 

■2,70500 

,90896 

•6.17199 

•2,70500 

1,04075 

•13,60679 

,51652 

0,00000 

106 

•7,47601 

•1,75000 

,62165 

•7,66164 

•1.75000 

,75100 

•12,72527 

c. .91346 

0,00000 

110 

-7.86565 

■1.75000 

,67636 

•6.06945 

•5,71000 

1,00571 

•13,60679 

.51346 

e,nonoo 

111 

•7,21660 

■4,75500 

,60192 

•7,41551 

•4.TS5flO 

.72484 

•12,72527 

.51652 

0,00000 

112 

•7.61021 

•4,75500 

,8«775 

•7,69692 

•4.755C0 

,97*67 

•1 3,60679 

,51652 

0,00000 

Ml 

■6,98616 

•5,66000 

,58274 

•7.17659 

•5,66090 

,70173 

•12,72527 

,39266 

0,00000 

M« 

•7.36703 

•5,66000 

,82071 

•7.55747 

•5,6h000 

,93975 

•13,60679 

•39266 

0,00000 

115 

•6.76717 

■6,4<1000 

.56620 

•6.97240 

•6.44000 

,68162 

•12,72527 

.39266 

0,00000 

11* 

•7.15741 

•6,44000 

,79744 

•7,34247 

•6,44000 

.91106 

•13,60679 

»39|66 

0,00000 



tREGION 2 ELAR 

1 DATA 1 


4) 





VORTFX 

•cnoROiRATES 

OF SnUNO LEG 

NlOPOINT 

•••COnRniNATEt OF CONTROL 

POINT**- 

B,L, S-EEP 

halF*nIPTh 

SURFACE 

NUHftrR 









SLORC 

J 

XBUJl 

V8LfJl 

Z8L(J) 

XCR(J) 

YCR(J) 

ZCPtJ) 

PSMJ) 

9N(J) 

ALPHAL(J) 

117 

•5,07677 

•7,49500 

,01753 

•5.39990 

•7.49500 

.11259 

■10,67204 

.6698S 

0,00000 

116 

•5.64004 

•7,49500 

,18765 

-5,92017 

•7.49500 

.26271 

•12,10921 

,66563 

0,80000 

in 

•4,81451 

•6,65000 

,01559 

•5,06011 

•6.61000 

,10676 

•10,67204 

• 67064 

0,00000 

120 

•5.54574 

•8,81000 

,17791 

•5.61136 

•6,61000 

.24910 

•12,10921 

,67064 

0,00000 

121 

•4,54925 

-10,16500 

,03364 

•4.60035 

• 50,16500 

.10092 

•10,67204 

•66563 

0,00000 

122 

■5.05145 

•10,16500 

,16821 

•5.30255 

■10,16500 

,23549 

•12,10921 

,66583 

0,00000 

123 

•4,28466 

•11,49500 

,03170 

•4.52162 

•11,49500 

,09511 

•10,67204 

,6656! 

0,00000 

124 

•4.75826 

•11,49500 

.15652 

■4.99M90 

■11.49500 

.22192 

■12.10921 

.66563 

o.oooon 



iREGION 2 ELAR 


9) 





VORTEX 

•COORDINATES 

OF BOUND leg 

MIDPOINT 

•••COnRDXNATES OF CONTROL 

P0INT««« 

8,L, Sheep 

HALF-NIDTH 

SURFACE 

number 









SLOPE 

J 

XBL(J) 

V0L(J) 

Z6L(J) 

XCR(J) 

VCRtJ) 

ZCP(J) 

PSTtJl 


ALPHALtJ) 

125 

•6,25615 

•7,49500 

,39601 

•6,49774 

•7.49500 

,54574 

-12.08921 

,66950 

0,00000 

126 

•6,75712 

•7,49500 

,69545 

•6.97691 

•7^49900 

.A4516 

•13,30694 

,66950 

0,00000 

127 

■5.03160 

•6,63000 

,17539 

•6.15844 

•B. 65000 

.91714 

•12,08921 

,67453 

o,ooeeo 

126 

•6,36528 

■8.63000 

,65688 

•6,61212 

■8. 81000 

,80063 

•13,30654 

•67453 

0,00000 

126 

•5,60505 

•10.16500 

,35475 

•5,8|9t« 

•10.16500 

.46BSS 

•12,06921 

•66950 

0,00000 

lie 

•6.05524 

•lo,I6;oo 

,62231 

•6.24751 

•10,16900 

,79609 

•13.30654 

,66950 

0,00000 

131 

•5,27672 

•11.49500 

•33418 

•5.48112 

■11.49500 

,46003 

-12.06921 

.66950 

0.00006 

152 

•5,66252 

-11,49500 

.58566 

•5,86392 

•11.49500 

,71173 

•13,10654 

,86950 

0,00000 



tREGIUN 3 ELAR 

1 data 1 


6 ) 





VORTEX 

•coordinates 

OF BOUND LEG 

"lOPOlNT 

•••ConROINATEs nr control 

point*** 

b,L, S-EEP 

halE-pIOTH 

surface 

SUMiER 









SLOPE 

J 

XRL(J) 

70L(J1 

Z8LC.M 

VCPtJl 

VCRU) 

ZCP(J) 

P8KJ) 

6W(J) 

ALPHAI (J) 

115 

•4,09214 

-12,83000 

.08688 

•4,56956 

•12.85000 

,26065 

•10,7563} 

*67140 

0,00000 

134 

-3.82680 

-14,15000 

.06116 

•4,27287 

•14.15000 

.24353 

•10,75631 

•65136 


155 

•5.55544 

•15,50000 

.07514 

•3,96945 

•15.50000 

•22602 

•10,75611 

,70146 

0,00000 

156 

•5,28407 

•16,65000 

,06950 

•3,66600 

•16.65000 

.20651 

•10,75631 

,65136 

0,00000 


MING trailing legs CORRECUO at t(I), I e 1 

9 13 






ALPHA 

NFVN 

NUNIT 

nfpts 

NPRInT 

RJFT 

KEI 

MUNIT 

NLOAD 

NJPKL 

HFRC 

NCFJ 

ntlf 

0.000 

0 

6 

12 

0 • 

1 

0 

1 

1 

10 

1 

• 1 

1 


JET TSiTtPFtRt^Ce ns FLAPS 1 2 5 

JET TfQWiNG EFFIClEKCr • t.OO 

(c) Page 3, concluded. 

^ Figure 8.* Continued, 


NFJ 

I 


Imput jpt 


ARBfa RfcCTAwGULAR J£T QN lCFT «1*<C PAUfL • VELOCITY f5EC*Y FROM TW 0»81R7 


NJET NVUP 

nP 

NCRCT JPRINT 

t 10 

ISR 

0 -1 


) JET parameters 

CT 

RHO 

VO 



1,0000 

1*2500 

2.0000 

YCL 

YCL 

ECU 

set 

TmpTa 

0.00000 

0,00000 

0,00000 

0.0000 

0.0000 

4,00000 

o.ooooo 

0,00000 

4.6000 

0.0000 

11.00000 

0,00000 

O.ftOPOO 

11,0000 

0.0000 

14.50000 

0.00000 

o.oonoo 

14.5000 

0.0000 

f s.ooooo 

o.ooooo 

0,00000 

ts.oooo 

0.0000 


JET induced velocities ARC OHITTCO ON PANELS... 


YD 

ZQ 

0(1) 

NCVL 

GAMhA/V 

• S.TSOO 

••2600 

,0500 

5 

5,8141 

A 

5 

DSFaCT 

P 


{,5«20 

.2600 

1.000 

T.204 


1.5420 

,2600 

1,000 

7.206 


2,2100 

,JTOO 

1,000 

10,120 


2.6050 

,4150 

2,000 

12.160 


5.0000 

.5000 

2.000 

14.000 


1 2 

1 4 

5 6 

7 6 

5 1 


(d) Page 4. 
Figure 8.*> Continued 



JET PAR*"ETE»8 fO» TA^jCC^'T USB JFT 


NJFT NVLP >!P '^CPCT JPBINT 

1 10 no 0 •! 


JET parameters 

CT 

RMO 

VO 



1,0000 

1 ,2500 

2,0000 

xCL 

VCL 

ZCL 

6CL 

TUETA 

0.00000 

0,00000 

0.00000 

0,0000 

0,0900 

*,*0000 

0,00000 

O.QOQOO 

0,6000 

9,0000 

7,50059 

0,00000 

, 050*1 

7,5050 

0,0000 

7,57952 

0,00000 

, 05099 . 

7,5750 

• 6,0000 

7 ,* 19S1 

0, 00000 

,00326 

7,6155 

• 12,0000 

a . 5579 * 

0,00000 

• , 10076 

6,5769 

• 12,0000 

6.56291 

0.00000 

•.10576 

8.6020 

- 17,0000 

6 , bl**0 

0,00000 

•,15871 

6,6360 

• 22,0000 

9 . 513*0 

0,00000 

•« 5O0*1 

9,5999 

• 22,0000 

9,53672 

0,00000 

•,51002 

9 , 62*6 

• 27,0000 

9 , 570 ** 

0,00000 

•• 533 ** 

9,6601 

• 32,0000 

11,21597 

0,00000 

• 1,52671 

11,5669 

• 32,0000 

11,86625 

0,00000 

• 1,75973 

12,2977 

• 13 , 539 * 

13,24539 

0,00000 

• 2,00706 

13,6173 

- 6 , 3 * 3 * 

10 .* OS97 

0,00000 

• 2.16302 

15,0072 

- 6,5793 

15 , 6*290 

0,00000 

• 2 . 32*90 

16,0137 

• 5,5922 

16,00155 

0.00000 

• 2.50915 

16,0605 

• 0 , 701 * 


VO ZQ D ( i ) •iCVL CAHMA/V 

• 3,7500 •,2630 ,0300 IT 

A B 06FACT P 

1 , 3«20 ,2600 1,000 7 , 20a 

t,5420 «2600 UQOO 7,206 

t , 8 <( R3 , 310 * 1,000 6. *10 

1,8093 , 310 * 1,000 e,*ao 

1 , 8«93 , 310 * 1,000 6, *90 

1,9075 , 32*6 1,000 9 , 097 

1,9075 .3299 1,000 9,097 

1,9975 , 32*6 1,000 9,091 

2 , 0«05 ,3021 1,000 9,530 

2,0905 ,3021 1.000 9,530 

2,0005 ,3021 1,000 9,530 

2,2107 ,3701 1,000 10,323 

2 , 309 * ,3660 1.000 10,760 

2 , 0*30 , 011 * 1,000 11,099 

2 ,* 1*0 , 03*9 2,000 12.213 

2 , 7*96 , 0*21 2,000 12,926 

2,9999 ,5000 2,000 10,000 


aURPACE COURDINATE parameters for jet 1 rwiNC COORDINATE SVSTEH) 


X8 

VO 

zs 

OS 

THETA 

A 

6 

XSN 

YIN 

ZSN 

XOT 

70T 

Z8T 

059 

2^600 

• 3,730 

•.025 

0,000 

0,000 

1,502 

. 2*0 

2,000 

• 2.106 

• •025 

2.000 

• 5,272 

• .025 

1.9 

• 2,600 

• 3,730 

•,025 

0,*flO 

0,000 

1,592 

, 2*0 

• 2 « b00 

• 2,160 

• ,025 

• 2.600 

• 5,272 

• «025 

1.0 

• 5,595 

• 3,730 

•.025 

7,595 

0,000 

1,699 

,311 

• 5,690 

• 1,601 

-.025 

- 5,195 

• 5,579 

.,025 

t.o 

• 6,990 

• 3,730 

,175 

6,506 

12,000 

1.997 

,327 

• 6,921 

• 1,703 

• 109 

• 6,059 

- 5, *77 

, 1*2 

t.o 

• 7,305 

- 3.730 

,537 

9 . 0*7 

22,000 

2,001 

• 392 

• 7,690 

• 1,609 

• 57 * 

• 6,073 

• 5,771 

,096 

1,0 

• 9,010 

• 3.730 

1,556 

M.390 

32,000 

2,211 

,370 

• 9,655 

• 1,519 

1.673 

• 8,360 

• 5,901 

l , 0«l 

1.0 

• 9,790 

• 3,710 

1,050 

12,229 

13,500 

2.310 

. 36 * 

• 9,796 

> 1,020 

1,650 

- 9,798 

• 6,090 

1,850 

1.0 

• 11 , 10 * 

• 3,730 

2.130 

13,607 

6 , 3*9 

2it9*S 

.912 

• 11 , 10 * 

•!, 2*T 

2.136 

• 11 . 16 * 

• 6,193 

2,130 

t.o 

• 12,559 

• 3.730 

2.332 

15.031 

6,579 

2 ,« l * 

.017 

- 12,559 

• 1,119 

2,332 

• 12,550 

•*, 3tt * 

2.332 

9.0 

• 13,910 

• 3,710 

2,502 

16 , 00 * 

5.592 

2.770 

, 9*2 

• 13.916 

•, 9*0 

2,502 

• 13,916 

• 6,500 

2,502 

1.0 

• 15 , 6*1 

• 3,730 

2,722 
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3,2828 

0,0000 

b 

•.21S14 

9,9449 

.27349 

3,4994 

0,0000 

b 

27171 

5,3967 

•259S3 

3,3993 

0,0000 

1 

••3234S 

5,1799 

,23109 

i.1502 

0,0000 

S 

•,i4600 

5.0SJO 

,20164 

2,8090 

0,0000 

f 

•,42629 

4.8329 

,16699 

2,4169 

0,0000 

to 

•,80497 

4,9800 

,11677 

2,1209 

0,0000 

tt 

•,56064 

«,3279 

•11632 

1,6814 

0,0000 

12 

•,65464 

4,0799 

,09683 

1.6430 

0,0000 

IS 
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3,6234 

.67912 

1,4489 
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14 

•,80687 

3,9738 
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1,2444 
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IS 
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1,0209 
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(g) Page 7. 
Figure 8.- Continued. 
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1 

2 
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•2,67536 

,00307 
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1 

3 
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•2.56522 

•. 02510 

•2,57003 
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•70005 
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1 
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•2.36006 
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•2.56006 

,00500 
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2 

2 
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•.02506 

•2,09700 
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1 
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(g) Page concluded. 
Figure 8.- Continued, 
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.2SOOO 
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I4,5122« 

4,«S7I7 
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delta 
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(h) Page 8. 
Figure 8.- Continued. 
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I.OIISI 
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I/Ce 

P/OP 
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•,ms7 
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X/Cl 
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P/OP 
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,0727<l 
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1,01881 
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X/CR 

F/QR 
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,99«79 
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X/C« 

R/Qr 
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2,35085 
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1,22734 

••>1S1« 

.94130 

delta 

x/Cr 

F/Q9 

.12500 

2,53040 

.61500 

1,22995 

-.17171 

.92761 

delta 

*/Cp 

P/Qp 

•12500 

2,57590 

,62500 

1,20333 

•,S2S«3 

,69623 

delta 

X/CR 

P/Q* 

.12500 

2.46458 

,42500 

1,27671 

•,itaoo 

,8727a 

DELTA 

X/CR 

P/Qp 

•12500 

2.33549 

.62500 

1.1976R 


ObClOK 2 TLAB \ 


V/lB/2) 

CNimn, c 




•,02829 

1.16096 

X/CR 

,12500 

,62500 



delta P/OR 

3.52626 

2.24150 

•,50457 

1,09994 

X/CR 

,12500 

,62500 



delta P/fJR 

2,99227 

1,90479 

•,58086 

1,03983 

X/CR 
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,62500 



DElTa P/UR 

2,72453 

1,71063 

• .65686 

,97994 

X/CR 

.12500 
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delta P/OR 

2.51010 

1,54559 


A*A« REGION 2 FLAP 2 



Y/f9/2) 

CHORD, C 




•,42829 

1,13006 

X/CR 

,12500 

,62500 



[)kLT» r/am 
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,99441 

••50457 

1.06994 
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,96260 

••SB0B6 

1,00983 

X/Cr 
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.94994 

x/r« 

•1250U 
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delta P/OR 

1,4)043 
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1.17610 



(h) Page 8, concluded. 
Figure 8.- Continued. 
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CN0«4*C/(2*91 

CnOWh 

CA 

1 

-.02857 

6,1554 

.16772 

1.9074 

O.ftftOO 

2 

-.07857 

5.9899 

.16866 

2.2071 

o.oooo 

J 

•.11257 

5,8774 

,14276 

1,7002 

0,0600 

4 

-,15«57 

5,7JSa 

.16067 

1,9600 

0,0000 

5 

-,21910 

5.5QA5 

.16522 

2,0859 

0.0000 

t 

•.2T171 

5,3507 

.15447 

2,0206 

0,0000 

7 

•.3230} 

5,1795 
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1,6131 
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« 

-.36800 

5.0320 

.26164 

2,8050 

ft, 0000 

4 

•,02624 

4.8325 

.16699 

2.4169 

0,0000 

10 

-,50«57 

4.5800 
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2.1209 

0,0000 

1 
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4,3275 

.11632 

1.6816 

(1,0000 

M 

-.65686 

4,0759 

.09669 

1,6630 

0,0000 

U 

• , 733 1 a 

3.6294 

.07912 

J,4U69 

0,0000 

u 

-.60857 

3.5796 

.06969 

1.2464 

0.0000 

IS 

-,88571 

3,3164 

.04696 

1,0205 

0,0000 

u 

-.96266 

3,0691 
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,9946 
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i 
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.15772 

U,4RU7 

•2,4490 

<1 
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,9276 
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11,5165 

•2,4497 

5 
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,6962 
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10,5131 

•2,2363 

6 
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T/(a/2> 

:hob6, c 
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Figure 8.- Continued. 
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Figure 8.- Continued. 
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Figure 8.- Concluded. 
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